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SECTION I 


INTRODUCTION 


The goal of this program was to develop a digital 
Orani-axis control system for cold-gas tests to be 
conducted by the George C. Marshall Space Flight 
Center, Huntsville, Alabama. A digital control se~ 
quence was defined and implemented to control a sub- 
scale 30 valve compressed air system. The valving 
assembly consisted of 30 solenoid valves mounted around 
a nozzle exit cone that will be mated with the cold-gas 
test fixture at MSFC. 

Interface and drive circuitry and control routines 
were supplied. The program yielded the data necessary 
to establish the feasibility of such a control system 
and vectoring technique. It is a major step toward 
future development of hot-gas control valves and systems. 

The results of this program indicate that Precision 
Positioning Systems or Control Systems may be developed 
using these concepts of non- precis ions hardware and low 
cost digital control techniques. 

Figure 1-1 illustrates the cold-gas test system that 
was delivered to MSFC in the spring of 1973. 




FIGURE 1-1 

OMNIAXIS CONTROL ASSEMBLY 




SECTION II 


TECHNICAL DEFINITION 

This Section describes the original program concept as depicted 
in Figure 2-1. 

A. Omni-Axis Concept 

(1) System Description 

The cold-gas SITVC system consisted of 30 on - off 
injection valves controlled by a digital omni-axis 
electronic control system. The pitch - yaw (x-y) 
error signal from a simulated guidance system was 
resolved into polar coordinate signals by the valve 
controller and the appropriate number of valves opened 
around the thrust vector required for correction. The 
initial system was sized for 15 valves to be opened 
for maximum side thrust. The valves are opened se- 
quentially, starting with the one or two valves in 
line with the desired vector, then additional valves 
are opened at a prescribed ripple rate to prevent 
rapid side thrust transients. This combination of 
sequencing and rate limiting provided a smooth tran- 
sition to the desired side thrust. This is deemed 
necessary for a system that employs on - off valving, 
(a) On - Off Valves 

The use of on - off valving was chosen to 


be consistent with an all hot-gas system. 

To reduce valve actuation power requirements, 
it would be desirable to use the hot gases as 





a power source. But, compressible hot 
gases cannot be used in a proportional 
system because of insufficient position 
stiffness. An on - off valve is required 
only to actuate between the seat and full 
open stop with no intermediate position 
stiffness required. 

The on - off valve requires no position 
feedback and requires only a simple three- 
way pilot valve. This simplified the hot 
gas valve itself and reduces potential 
development problems. At low flow rates 
in a proportional valve the pintle and 
seat tend to burn and erode unevenly, 
causing leakage and unpredictable flow 
rates. The on - off valve does not dwell 
at small openings and the metering point on 
the pintle and seat can be made at a differ- 
ent point than the seating point. 

(b) 30 Valve System 

After deciding that the hot gas valves 
should be on - off, then the problem of 
on - off transients on the missile system 
must be considered. If only four valves 
are used, then there is only one thrust 
level and the valves must be fast acting 
to take care of small impulse requirements . 
If a number of valves are used, then there 


can be a number of incremental thrust levels 




by opening the number of valves required 
for a given impulse requirement. In addi- 
tion, the valves can be opened sequentially 
to reduce the level of on - off transients 
on the missile. 

The optimum number of valves will require 
more study; but, a 30 valve system gives 
5 levels of side thrust (10 valve pattern) 
and keeps the manifold simple. 

A 30 valve system would have 15 valves in 
180° and with a 10 valve segment this would 
allow 2 to 3 spare valves for failure redun- 
dance without severe degradation in maximum 
side thrust. Failure of a few valves will 
not cause failure of the system as with a 
four valve system. 

Test results on multiple port injection 
patterns versus single port injection has 
shown the multiple ports more efficient when 
the pattern is not spread to the extent that 
cosine losses negate the increase. The spec 
ific impulse of small angle side thrust is 
higher than at large angles. Thus, the addi 
tion of a number of small angle side thrust 
injection points will be more efficient than 
one large angle side thrust injection point, 
so long as the cosine losses due to the 
spread-out pattern do not negate the gains. 



B. Digital Omni-Axis Concept 


(1) Background 

In 1965, LIVE demonstrated omni-axis control systems 
on the Lockheed Propulsion Company 156-5 and 156-6 
Solid Rocket Motor firings. The system demonstrated 
a 307o savings in required injectant fluid over a 
pitch - yaw vector system. This was possible because 
the most optimum injectors could be opened for any 
thrust vector orientation. A pitch - yaw system 
requires an injectant flow of 2 when the required 
thrust vector occurs midway between the pitch - yaw 
axis. This was negated somewhat by the cosine losses 
for the valve distribution of 90°, but the overall gain 
was 307o. 

The omni-axis system used on the 156 inch motors had 
a self compensating feedback circuit that spread the 
90° valve pattern out if one of the valves failed to 
open. This failure philosophy made man-rated reliability 
very easy to achieve. 

The omni-axis system is proposed for the hot gas valves. 
However, the control system is a digital control system, 
instead of the analog system used on the 156 inch motor. 
The digital system utilizes a sequencing system to re- 
duce the transients caused by on-off valving. 

(2) On - Off Transients 

In a SITVC system, the position (X) of the injector de- 
termines the mass flow rate of injectant, i.e. 


M = KiX. 




The mass flow rate then determines the side thrust 


(T) which determines the angular pitch or yaw rates 
, i . e . 

T = K2O = K3fl, 

thus K„0 = K,K-X or 0 = K.X, 

2 13 4 

The slew rate of the valve (X) then gives -0- = K^X. 

The jerk on the missile is then a function of the 
valve slew rate. 

Figure 2-2 shows the low jerk level associated with a 
proportional control valve with a slow slew rate. This is 
then compared to the high jerk level of a simultaneous 
on - off control with a fast slew rate. The time duration 
and level of jerk can be reduced by dequencing a number of 
on - off control levels. Then by adding leduced slew rate 
to the sequential on - off control, the system may be made 
to closely resemble the proportional system with a low 
jerk level. 

The importance of low jerk levels is related to exciting 
missile vibration modes. Also, it is disconcerting to 
personnel in manned missions. By sequencing and limiting 
the slew rate of an on - off system, the side thrust jerk 
with injection valve opening can be reduced to that of a 
slow proportional position system. 

(3) Digital Control Techniques 

The digital electronic control system for this program 
provides a high degree of flexibility in the variation 
of sequencing parameters. This system consists of a 




i 

small programmed process controller and interface 
breadboard circuitry connected to the 30 valves as 
described later in this report. The processor pro- 
vides the limited arithmetic capability required for 
this system as well as all system timing and sequencing 
parameters as determined by its program. The breadboard 
interface circuitry converts signals from the controller 
into valve drive voltages and currents for selected 
valves and also converts the system response signals 
to a form acceptable by the controller. The breadboard 
unit will accept either analog or digital input thrust 
vector command signals for either dynamic or static 
testing of the injector system. The unit also displays 
the status of all valves in the test setup on front 
panel indicator lamps. 
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SECTION THREE 


III, OMNI-AXIS DESIGN CONSIDERATIONS 

This section presents the trade studies and design details developed 
during this program. 

A. Nozzle Considerations 6e Design Aspects 

A trade-off study of gas secondary injection for thrust vector 
control of a rocket nozzle shows that a multi-port on-off injectors 
with vector selector logic has many advantages. Proportional 
liquid TVC with omni-axis control (Reference 1) has demonstrated 
improved efficiency vector-selector valving. To simplify hot 
gas injection TVC, this concept can be carried further to include 
on-off control with digital computer logic. 

The cold gas test system has 30 sonic ports at right angle to the 
nozzle axis on a plane 60X down the contour nozzle from throat to 
exit.. The port diameter of 0.039 will give 6 degree vectoring 
with a 9 port pattern. 

Omni-Axis SITVC 

Generally rocket motor TVC is in terms of pitch and yaw from the 
guidance system. This fixed quadrant system utilizes a thrust 
vector summation of pitch and yaw to obtain the desired vector. 

This type of summation is wasteful of TVC mass flow since a desired 
vector may occur half-way between pitch and yaw, requiring Vz” = 1.4 
times that required when the vector is in line with pitch or yaw 
(Reference 2). In an omni-axis system the pitch and yaw signals 
are siommed electrically and only TVC valves closest in line with 
the desired vector are used. 



The omni-axis concept can be refined further by using a segment of 
injectors to produce the desired vector. The number of injectors 
in a segment about the desired vector depends on the magnitude 
of the desired vector. For small vectors one or two injectors about 
the desired vector are used. For larger vectors the segment of 
injectors can be spread out to a segment approaching 180° centered 
about the desired vector. In addition, the segment can be spread 
out in a sequental manner about the desired vector. Sequencing 
will make the system smooth by making total response time increase 
as the vector magnitude increases. 

Duty Cycle 

A typical launch duty cycle is shown in Figure 3-1. The duty cycle 
shows a maximum side force requirement during launch but very 
quickly falls off to some steady state valve represented by thrust 
misalignment and aerodynamic forces on the launch vehicle. The 
injection system should be sized for one injection point to provide 
most of the steady state thrust and then spread of the pattern can 
be quite large with resulting high cosine losses and still be 
acceptable since the integrated total impulse (S thrust X time) 
at the large angle is insignificant compared to the total impulse 
required for the steady state TVC. 

The number of injection points should be such that one port can take 
care of the average duty cycle. The maximum thrust of 6° can be 
provided with a number of valves spread out over a 90 degree to 
180 degree sector centered around the desired vector. The efficiency 
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is degraded by cosine losses with a large sector as shown in 
Figure 2 (Reference 2), but the duty cycle is low for 6°, The 
efficiency for a large number of vavles spread over a segment of 
120° would be about 837„. This 100° segment must contain at least 
5 thrust levels since it is desired that the lowest level pro- 
duce about 1° side thrust for the steady state condition. De- 
pending on whether the desired vector occurs in line or between 
a port, then 9 or 10 ports are required in a segment. Thus at 
least a 30 port system is required as shown in Figure 6. 

Intermittent Bleed System 

There are two methods of chamber bleed SITVC, a constant bleed 
system and an intermittent bleed system (Reference 4). In the 
constant -bleed system some number of valves are open during non- 
vectoring to provide a constant bleed flow rate equivalent to that 
required when vectoring. This system eliminates variations in 
chamber pressure and thrust level whether vectoring or not. In 
an intermittant bleed system valves are only open during vectoring. 
For a 6° vectoring system the propulsion efficiency would be 
degraded about 6% for constant bleed. The constant bleed system 
would also have vectoring efficiency degraded by about 10%. Since 
steady state demands would probably be less than 1° vectoring, then 
the intermittant bleed system would be more efficient without ex- 
cessive variations in chamber pressure. 
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Supersonic or Sonic Injection 


Sonic velocity Injection is accomplished with a straight hole injection 
point. To obtain supersonic injection, the injection orifice must have 
an expansion nozzle. Obviously, the sonic injection is easier to im- 
plement with straight bored holes. Test data (Reference 3) on 17.5° 
conical test nozzles with area ratios of 8:1 shows no advantage to 
supersonic nozzles for secondary injection to nozzle flow ratios Ws/Wp 
.08. However, the test data examined was for fixed injection nozzle 
diameters with injection pressure varied to change weight flow rates. 

This means that at lower flow rates the injection nozzles were overex- 
panded for the brake pressure in the main nozzle causing jet separation. 

It is probably that supersonic injection is better, but fabrication 
problems in the subscale test nozzle will prohibit its use. 

Contour Nozzle versus Conical Nozzle 

No data was available on SITVC with a contour nozzle. Almost all data 
has been taken on 15° or 17.5° half angle conical nozzle (Reference 3 
and 4). The conical nozzle is generally used because of ease of fabrication 
and because at low expansion ratios there is little difference in performance 
compared to the contoured nozzle. 

Generally jet separation occurs sooner in an overexpanded contour nozzle 
than in an overexpanded conical nozzle (Reference 5). Also, SITVC is 
more efficient in an overexpanded nozzle than in an optimum or under- 
expanded nozzle (Reference 3 ) . Thus , the contour nozzle should have a 
slight advantage over the conical nozzle for SITVC. A booster vehicle 
at launch generally is operating overexpanded and requires the highest 
angle duty cycle, thus making the contour nozzle more attractive. 
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FIGURE 3-^ 


































The contour nozzle is shown in Figure 3. Injection locations for X/L 
= 0.6, 0.7 and 0.8 are shown. L. H. Erickson of Thiokol was shown 
this contour nozzle and he suggested that the injection point of such 
a low expansion ratio (E=5) contour nozzle should be at an X/L = 0.6 
or lower. 

SITV Test Data 

PluiDyne test data (Reference 3) will be used to size injectant ports 

in the 30 valve omni-axis SITVC system. The information from these 

extensive tests has been reduced to Figures 4 and 5. All the data is 
o 

for a 17.5 half angle conical nozzle with a 8:1 expansion ratio. The 
data was taken for over, under and optimum expanded nozzles at injection 
points of 0.6, 0.7, and 0.8 of the way down the nozzle from throat to 
exit plane. 

The effect of injection port locations for X/L = 0.6, 0.7, and 0.8 are 
shovm in Figure 4. Only the optimum expansion curves are shown. The 
side thrust ratio (Fs/Fp) is only slightly more for overexpans ion and 
less for under expans ion for the same weight flow ratio (Ws/Wp). The 
curves show that X/L = 0,6 and 0.7 are equivalent and better than X/L 
- 0 . 8 . 

The effects of injectant port inclination (^) is shown in Figure 5. The 
inclination is the angle between the injectant port axis and the nozzle 
axis. These curves clearly show that aiming the injection upstream 
gives more side thrust for the same weight flow ratio. However, a 





































































































survey of all actual full scale rocket motor firings shows that none 
used any injection angle except 0 = 0°. The reason for this is a prac- 
tical one, the straight in port is easier to manufacture. Hot tests 
have also shown that the upstream inclined ports errode badly on the 
downstream lip of the port. 

Nozzle Calculations 

The sub-scale nozzle will have the following parameters: 

2 

= 0.232 in 

A = 1.177 in^ 
e 

E = 5.06 
V =1.4 

For an optimum expanded nozzle the following holds (Reference 6). 

Pe = .020, M = 3.2 
Ps 

If Pe = 14.5 psia, then Ps = 725 psia. 

Thus the nozzle will be overexpanded for supply pressures Ps = 250 to 
350 psia. 

The thrust from an optimum expanded nozzle is (Reference 7): 

F = CpA^.Pg = 110.66 lbs. 
opt 

where = 1.59 

P^ = 300 psia and Pe = 6 psi 

At Pa = 14.5 psia the thrust is 

F = F T (Pe - Pa) A^E = 109.66 lbs. 
opt 

Acutally this is reduced by the divergence angle (o() of the nozzle exist 

o( = 8° 

A = % (1 + cos o() = % (1 + 0.99) = 0.995 
F = F = 109.1 lbs. 


by 



Injectant Port Sizing 

3,0 o . „ 

The/port system should be sized to give 6 vectoring with a 9 or 

10 port segment. This system is shown in Figure 6. The cosine 
efficiency is between 867. for 9 ports and 837» for 10 ports. Ne- 
glecting port interaction, the control angle per port is 0.77° for 

9 ports to yield a resultant 6° vector. At this size a 10 port 

o 

segment will give a 6.4 vector. 

Figure 4 shows that 0.77° (Fs/Fp = .0134) will require Ws/Wp = .005. 

The weight flow through a choked orifice is 

" - 

yr 

2 

where: A = Orifice Area (in ) 

= Orifice Coefficient = 1.0 

C = Weight Flow Parameter 
M 

Py = Upstream Pressure (Ibs/in^) 

W = Weight Flow (lbs /sec) 

T = Absolute Temperature (°R) 

Assuming C > C and P are the same for the injectant port and the 

D M u 

rocket nozzle. Then 

• 

Ws = ^ = .005 

Wp At 

The rocket nozzle diameter is 68 inches then the injectant port area (As) 

2 o 

is As = 71^(68) X .005 = 18.158 in"^ 

4 

and port diameter Ds = 4.81 inches. The 125 ;1 scale reduction make the 


subscale ports Ds = .0385 inches 
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General Comments 


1. Better vectoring performance is obtained when rocket nozzle is 
in an overexpanded condition. 

2. Injecting upstream into the nozzle is more efficient than in- 

jecting at right angles to the nozzle axis. Insufficient data 
was available to determine optimvnn angle. There are, of course, 
fabrication problems in injecting upstream. Also the lip of 
holes pointed upstream errode away rapidly and probably reduces 
the increased efficiency. 

3. The best location for ports is probably between X/L = 0.5 and 
0.6 for a nozzle expansion ratio of 5:1. 

4. Supersonic injection is best for large vector angles (4° to 6°) 

o 

per port, but vector angles less than 1 per port performance 
is equivalent to sonic injection. The straight bore port for 
sonic injection is easier to fabricate than nozzles for super- 
sonic injection. 

5. Interaction between adjacent injection ports should increase 
efficiency. However, no data is available on ports separated by 
12 °. 

6. Tests on a four-port constant bleed system (Reference 4) showed a 
decrease in propulsion efficiency of about 1 % for each degree of 
thrust deflection and lowered vectoring efficiency of 10%. Tests 
with an eight -port intermittant -bleed system were found most 


efficient 



General Comments Cont 


7. The injection valves should be located close to the nozzle and 
form part of the injection port to conserve stream momentum. 

Only a plug type fits the required geometry. Also, small plug 
valves can be mounted closer to the nozzle than large valves. 

The rotary type valves that divert flow cannot form part of the 
injection port and in some designs actually diverts high velocity 
gases causing high energy losses. 



NOMENCLATURE 


C< Nozzle exit divergence half-angle 

A Local cross-sectional area 

Ae Cross-sectional area at nozzle exit 

At Cross-sectional area of nozzle throat 

As Cross-sectional area of injectant orifice, in 

Cd Orifice coefficient 

Cf Thrust coefficient 

Cm Weight flow parameter 


Ds Diameter of injectant orifice. In 

F Thrust of Nozzle 

Li Length of nozzle from throat to exit plane, Inches 

M Mach Number 

Specific heat ratio (Cp/Cv) 

P Pressure, psia 

Pa Ambient or back pressure, psia 

Ps Nozzle supply pressure, psia 

K Nozzle divergence angle correction factor 


£ 


Nozzle expansion area ratio (Ac/At) 


X 


Distance along nozzle axis from throat. Inches 
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B. Digital Controller 6e Interface Panel Considerations 

The digital control system consists of a PDF 8/E processor and an 
interface breadboard unit. The flow diagram Figure 3-7 indicates 
the process control flow for the hardware of this program. For 
purposes of this proposal only, X and Y analog thrust vector commands 
are considered, although any form of these commands i.e., polar 
coordinates, binary, BCD could ultimately be used. 


The mechanized scheme first converts the X and Y commands to polar 
coordinates consisting of a vector of^ amplitude located along a 
^ direction. From this information the^ injector valve is opened 
and then, under program control, successive pairs (or singles if 
desired) of valves on either side of0^ are opened. The sequence 
and timing of this ripple effect is determined by the program. Gated 
valve drivers generate the necessary signals to operate the solenoid 
valves which generate a logic level when fully open. The comparator 
compares the nuttiber of valves actually open to a number computed from 
the amplitude of . This technique has the advantage of automatically 
compensating directly for valves that are either stuck open or refuse 
to open on command. At this point, the thrust vector is held until 
the X and Y inputs are changed by outer loop control systems such as 


guidance 




GeNEECiL Flow DiagEAM of CoNIEOL SysTEM 

FIGURE 3-7 






System Mechanization 


This system is mechanized as shown in the block diagram. Figure 
3-8. As indicated, the system is broken into two major parts -- 
computation and control. The computation section consists of a 
PDP-8/E controller while the control section is composed of the 
breadboard interface unit and the nozzle fixture containing 30 
solenoid valves. Externally generated X and Y vector commands 
are routed through the breadboard unit for conditioning and conver-* 
sion prior to entry in the processor. Under program control, the 
PDP-8/E computes ^ Q , select Sp from a table contained in memory, 
calculates the number (So + N) of valves necessary to be opened 
for a given ^ , initiates and controls the up/down ripple sequencing, 
provides the binary address codes necessary to fire selected valves 
and stops the sequencing when the proper number of valves have been 
opened . 

The addressable firing gates respond only to discrete addresses and 
commands issued by the processor. The amplifiers shown convert the 
logic levels used up to this point into voltage and current levels 
adequate to drive the solenoid valves. One buffer register contains 
the data as to which valves have been commanded open while the other 
buffer register contains the data as to which valves are actually 
open. All input and output signal levels are TTL compatible as 
required by the processor. 



I/O BUS 
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Process Flow 


As shown in the control system block diagram. Figure 3-7, several 
operations are contained within the controller. As an example of 
control flow, the first block - compute^(^- may be accomplished 
as follows: 


Solve for/X = tan 
Y 


b. Look up©o in 30 point memory table using X and Y signs 
to determine quadrant. 

c. Look up COS 00 in memory table. 


d. 

e. 


Solve for^ = X 

COS 6^0 

Store P and in memory. 


The next computation block -- select0o + N consists of another 
table look-up for N = . The up/down ripple sequence is initiated 

under the program control selected for a given test. For static X 

- X, 

and Y inputs and a simple arithmetic progression such as 0^ 

+ 2, ...,^ + N a simplified control flow example is: 

a. Fire Command to 

b. Interrogate Amplifier for Response 

c. If OK, Idle for Programmed Period T 

d. Fire Command to^o + 1 and0o - 1 

e. Interrogate 0o + 1 and - 1 Amplifiers 

• • • • • 


The Valve Address Coding block converts »^o t ••• into discrete 
address codes recognizable only by specific valves. The control 


system now holds this static condition until changes in the X and 
Y inputs were detected at which time newp<^o parameters are computed. 
Again under program control , the valves would be closed and opened 
in a ripple sequence to satisfy the new input requirements. 

The basic clock, computation, and transfer speeds of the PDP-8/E 
are many orders of magnitude faster than required for this system 
— 1,2 to 1,6 microseconds for a single simple operation. This allows 
a high degree of flexibility in programming ripple rates, response 
times, etc, for this laboratory system, 

I/O Interface 

The I/O (Input /Output) bus interface shown in the block diagram, 

Figure 3-8, are the signal entry and exit routes for data to and 
from the processor. In brief explanation, a large number of separate 
devices may be connected to this bus, each having its own discrete 
binary address code. For this program, all I/O transfer is initiated 
under program control rather than the more exotic flag or interrupt 
techniques used in higher level data processors. That is, no transfer 
of data, either to or from the PDP-8/E, is done except at program 
command. The I/O itself consists of 12 parallel lines using TTL 
logic levels (+2,5 to +5,5V for a logical "I" and +1,0 to -0,5V for 
a logical "0"), Part of the 12 bits may be used for address codes, 
part for command, and part for data. This is entirely under program 
control and quite often, when longer blocks of data are required, 
several words in series are required to accomplish one I/O transfer. 


Programming 

Montek has supplied all programs needed for operation of this 
system on a PDP-8/E control processor. The entire library was 
developed at Montek and supplied to MSFC, All operating routines 
are performed using programmed subroutines. 


Control Technique 

The system implemented by MONTEK, incorporates a circularly placed 
set of thirty (30) injection ports with two important characteristics 
Analog control can be approximated within practical limitations. 
Valve failure is less serious than with existing quadruple port 
control systems . 

It is the intent of the program to investigate the above claims, 
both on a theoretical potential basis and via a currently operating 
test facility. 

(1) The Bias Vector 

For the sake of simplification, consider the thirty ports 
distributed evenly (every 12 degrees) around a circle as 
shown in Figure 3-9. 

Let each valve open state represent a unit vector from the 
center of the circle along a radial away from said valve. 

Define a "bias vector" as the vector sum of all valve open 
unit vectors for a given sequence of valve conditions (open/ 
closed). For example the bias vector for open valves (num- 
bered in octal from 1 to 36) 1,2, 3, 4, 5 would be a radial 
vector pointing away from valve 3 with magnitude 4.7834 
(the sum of cosines about the symmetry valve #3). 

(2) Valve States 

The power of analog thrust control lies in the multiplicity 
of bias vectors. For each bias vector we associate a valve 
state which represents a given sequence of open and closed 
valves for the selected set of thirty ports. 



The number of possible valve states is given by the total 
number of binary combinations of thirty valves, namely 
2f30 - hence, an analog approximation! 

Not all combinations of open/closed valves are desirable, 
however, due to the varying efficiency values for the 
different states. The efficiency of a given valve state 
is defined as the magnitude of its bias vector divided by 
the number of valves "on" that create the given vector. 

For example, the efficiency of the sequence of all thirty 
valves "on" is zero whereas the efficiency of a single 
valve "on" is one. This is important from the viewpoint 
of gas consumption vs. end result. 

(3) The State Transition 

Thrust control occurs via a set of state transition commands. 
The question arises as to the "smoothest" and most efficient 
transition from one valve state to another and avoidance of 
overshoot. In other words, which path - created by the 
envelope over bias vectors - will produce the least step 
control impulse on the rocket involved and - at the same 
time - minimize valve switching while maximizing valve state 
efficiency? 

Consider the example of Figure 3-10. We desire to produce a 
transition from state A to state B. The smoothest transition 
will obviously lie along a straight line from A to B. The 
most effective transitional increments along this path are 
a matter of experimental testing. 




(4) Symmetry Classes and State Transitions 


There exists structure to various symmetry classes of valve 
states. For example, all states created with only two valves 
open form a definite pattern within the valve state circle. 
These S37mmetry classes have not yet been investigated. It is 
felt that such a study would generate a greater understanding 
of smooth state transitions and analog thrust control. 

Specific experiments could be carried out using as allowable 
bias vectors those belonging to selected valve state S5mimetry , 
classes. Such tests might uncover means of minimizing valve 
switching during state transitions. 

(5) Practical Limitations During State Transition Execution 
It is evidently impractical to use a complete table of 
valve states in the selection process that occurs in 
state transitions. 

The ideal valve state selection process would consist of 
finding the desired bias vector valve sequence from a 
generating function given an X and Y input. Whether or 
not this is feasible is yet to be investigated. If so, 
it will likely involve valve state symmetry classes. 

(a) The Current State Transition Model 

Let the valve state circle have radius 9.12 and 
restrict all valve sequences such that for each 
allowable sequence there exists a continuous segment 
of closed valves with length not less than 18 valves. 
Thus, the continuous valve segment containing the 
open valves will not be greater than 12 valves long. 


Divide the valve state circle into 5A00 sections 


bounded by concentric arcs of 2 degrees each and 
radial sides of 0.304 units long. 

Select from each section a bias vector with the 
highest efficiency and assign it to that section 
via a look-up table in core memory. 

Note that the look-up table need contain only 120 
sequence values because of the angular symmetry 
around the valve state circle (i.e. for each six 
degrees) . 

For every possible X,Y pair a valve state sequence 
is thus defined. Transitions are made by specifying 
an initial and final X,Y pair and the transitional 
step distance. This produces intermediate transitions 
for the smoothing effect until the final X,Y state 
is reached. (See Figure 2.) 

(6) Possible Future Investigations 

Several items are suggested for future study. As previously 
mentioned, a study of valve state symmetry classes would aid 
in understanding smooth state transitions, analog thrust 
control, and minimization of valve switching during state 
transitions. 

Creation of a bias vector generating function would eliminate 

the need for a look-up table in core memory and augment 

efficient state transition understanding. 

Much insight could be gained by replacing the X-Y "pot" 

inputs with a "light pen" or "writing tablet" as used in 

computer graphics . Such a technique would provide the 

experimenter with visual correlation between X,Y inputs 
and valve state sequences. 
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3-9:Valve ports numbered in octal and placed at 12 degree intervals. 
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FIGURE 3 - 10 rValve state circle with radius of 9.12 luiits 


SECTION FOUR 


IV. CONTROL PROGRAMS 

Two (2) separate control routines were developed for the omni-axis 
SITVC. One(l) is an Operational Routine incorporating a variable 
state- variable time computation sequence. This program provides for 
operator selection of control mode step interval length and step in- 
terval timing while in a programmed sequence mode of operation. It 
further provides for operator selected constants when the system is 
being controlled from external signal sources. The other routine 
is called the Test Routine and provides a simplified system of con- 
trolling any number and specific address of valves. 

A. Operational Routine 

This routine implements the control sequence described in the 
previous section. Operator inputs and data outputs are through 
the teletype ASR associated with the process controller. There 
are two (2) basic modes of operation, remote (R) and Sequence (S). 
While in the sequence mode all commands and control reside within 
the program. In the remote mode commands (X and Y Vector inputs) 
are generated from a remote source and are coded and controlled 
through the program. Command modes of the program are "MS” for 
Mode Select, "PS" for Program Select, "PE" for Program Execute and 
"PL" for Program List. The mode select command controls the mode 
under which the Test Program select command permits the operator 
to enter a variable state transition step length (from 10 to 2,000). 
It further permits an operator entry as to the variable state tran- 
sition rate. This rate may be either constant or variable while in 


the sequence mode, with the operator providing the rate control 
for each step while in variable operation. Constant rate input 
is used in either remote or sequence modes and remains constant 
for any step within a test run. The valve of this rate may be 
set at any value from 50 to 10,000, and the number represents 
the approximate time in milli-seconds for that step. Rate values 
to as low as 20 may be used significantly where computation times 
are short, ie for small step increments. 

While entering control constants in the PS command mode, other 
such constants may be included in the sequence mode. A cycle 
duration constant may be entered to repeat any number of cycles 
of the command sequence or may be left to run for a indefinite 
number of cycles. While in the sequence mode, each value of the 
X and Y Vectors must be entered by the operator. In the remote 
mode, the program sequence command mode provides an additional 
control feature in which a termination point is selected by the 
operator. In this mode when the inputs from external sources re- 
main unchanged for an operator selected number of step cycles, 
the program is terminated and corrective commands are given the 
system. In this particular sequence, stuck valves are compensated 
by the program. That is, valves stuck shut will have adjacent 
closed valves opened and valves stuck open will be compensated by 
opening a valve 180° away. 


The program execute command is used to initiate operation of the 
entire system after program sequence constants and commands have 
been entered on the keyboard. The program list command is used 
following termination of a test run and provides a printed history 
of valving operation, both open and closed, with a clock count 
associated with each operation being displayed. It further provides 
an indication of compensation operations which may be necessary 
for failed valves. The following pages present the program 
listing for the omni-axis operational routine as mechanized for 
a PDP-8/E process controller with a 4-K memory and a ASR 33 tele- 


type 


00000 
00 0 01 

0001 0 
00011 
000 1 2 
000 1 3 
000 1 4 
000 1 5 

00020 
00021 
00 0 22 
00 0 2 3 
00024 
000 2 5 
00026 
00 0 2 7 
00 0 3 0 
00031 
000 3 2 
00033 
00 0 3 4 
00 0 3 5 
00 0 3 6 
00037 
00 0 40 
00041 
000 42 
00043 
00 0 4 4 

00045 

00046 
000 47 
000 50 
000 51 
60052 
00053 
000 5 4 
000 5 5 
000 5 6 
00 0 5 7 
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0000 

FIELD 0 



0000 

♦ 0 



0000 

IMTRPT, 

0 


5777’ 


JMP 

SXPCHi^ 

0010 

*113 



0000 

LISTPT, 

0 

/LIST POIMTER 

0000 

XSTKPT, 

0 

/X STACK POIMTER 

0000 

YSTKPT, 

0 

/Y STACK POIMTER 

0000 

RSTKPT, 

0 

/R STACK POIMTER 

0000 

AUTO01, 

0 


0000 

AUTO02^ 

0 


0020 

*23 



0000 

STOR0U 

0 


0000 

STOR02, 

0 


0000 

STOR03, 

0 


0000 

STOR04, 

0 


0000 

STOR05, 

0 


0000 

STOR06, 

0 


0000 

STOR07, 

0 


0000 

STOR08, 

0 


0000 

IMTCSU 

0 


0000 

INTCS2, 

0 


0000 

INTCS3, 

0 


0000 

INTCS4, 

0 


0000 

INTCS7, 

0 


0000 

INTCSS^ 

0 


6202 

RETURM^ 

6202 

/CIF 

0000 

XBEGIM, 

0 

/BEGIM VALUE OF X 

0000 

YBEGIN, 

0 

/BEGIN VALUE OF Y 

0000 

XEMD, 

0 

/E2>ID VALUE OF X 

0000 

YEMD, 

0 

/END VALUE OF Y 

0000 

DSTNCE, 

0 

/TOTAL TRANSITION DISTANCE 

0000 

STEPDT, 

0 

/TRANSITION STEP DISTANCE 

0000 

STPCMT> 

0 

/TRANSITION STEP COUNT 

0000 

DEL TAX^ 

0 

/X TRANSITION STEP DISTANCE 

0000 

DELTAY, 

0 

/Y TRANSITION STEP DISTANCE 

0000 

ABTIME> 

0 

/ABSOLUTE TIME 

0000 


0 

/(DOUBLE PRECISION) 

0000 

CDCOMT, 

0 

/CYCLE DURATION COUNT 

0000 

TRCONT, 

0 

/TRANSITION RATE COUNT 

0000 

CYDURA^ 

0 

/CYCLE DURATION 

0000 

TRAMSR> 

0 

/TRANSITION RATE 

0000 

PGXODE# 

0 

/PROGRAM MODE 

6177 

LISTST, 

61 77 

/LIST START- 1. 
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000 60 

6600 

LISTEN^ 

-1200 

/(NEGATIVE) LIST LENGTH 

000 61 

4777 

RSTKBG* 

4777 

/BEGINNING ADDRESS -1 OF R STACK. 

000 62 

5177 

XS TKBG> 

5177 

/BEGINNING ADDRESS -1 OF X STACK. 

00 0 63 

5377 

YS TKBG> 

53 77 

/BEGINNING ADDRESS -1 OF Y STACK. 

00064 

0000 

AC, 

0 

/SAVE ACCUMULATOR HERE ON INTERRUPT. 

00065 

0000 

L, 

0 

/SAVE LINK HERE ON INTERRUPT. 

000 6 6 

0000 

XACEPT, 

0 

/PUT A-D & SEQ. SAMPLE HERE FOR CONVERSION 

00067 

0000 

YACEPT, 

0 

/PUT A-D 4 SEQ. SAMPLE HERE FOR CONVERSION 

00 0 7 0 

0000 

SEQNCE, 

0 

/1 2 BIT COMMAND SEQUENCE 

00071 

0000 

ROTABI, 

0 

/# COUNTER CLOCKWISE SEQUENCE ROTATIONS 

00 0 7 2 

0000 

RHOIND, 

0 

/RHO INDEX FOR LOOKUP TABLE 

00073 

0000 

SINTST, 

0 

/ABSOLUTE VALUE OF C S IN C THETAI -S IN CN3 ) 

00074 

0000 

THETA, 

0 

/EVEN THETA APPROXIMATION 

0007 5 

0000 

SMLLST, 

0 

/PARAMETER FOR ’'SMALLEST** DIFFERENCE TEST. 

00016 

0000 

RHO, 

0 

/SQRTCXt 2+Yf 2J 

00077 

0000 

SINTHE, 

0 

/I 000^SIN( THETA) 

00100 

5577 

SINTBL, 

5577 

/POINTER (-1) TO SINE TABLE 

00101 

0000 

VLVENM, 

0 

/’•VALVE NUMBER” FOR EXECUTION COMMANDS. 

00102 

0000 

COMMN D, 

0 

/USED TO FORM EXECUTION COMMAND. 

00103 

5677 

THETBL, 

567 7 

/POINTER (-1) TO VALVE STATE TABLE. 

00104 

6000 

SEQTBL, 

60 00 

/POINTER TO SEQUENCE TABLE. 

120105 

0000 

THEIMD, 

0 

/THETA INDEX FOR LOOKUP TABLE. 

00106 

0000 

PARI TY, 

0 

/USED TO FIND SEQUENCE. 

00107 

0000 

THETAL, 

0 

/USED TO FIND SEQUENCE. 

001 10 

0000 

THETAS, 

3 

/USED TO FIND SEQUENCE. 

00 1 1 1 

0000 

XSQARH, 

0 

/STORAGE FOR Xt 2. 

001 12 

0000 

XSQARM, 

0 

/STORAGE FOR Xt2. 

001 13 

0000 

XSQARL, 

0 

/STORAGE FOR X» 2. 

001 14 

0000 

TERMNL, 

0 

/TERMINAL SPACING. 

001 15 

0000 

TRMCMT, 

0 

/TERMINAL COUNT. 

001 16 

3400 

TCC000, 

TCS009 


001 17 

3414 

TDC000, 

TDS000 


00120 

3422 

TBC030, 

TBS003 


00121 

3455 

TEC 003, 

TES030 


00122 

3503 

TGC030, 

TGS303 


03123 

3517 

TPC003, 

TPS930 


00124 

3533 

TQC330, 

TQ3030 


03125 

3600 

ML C 00 3, 

MLS033 


00126 

4603 

MBC0 03, 

MB S3 30 


03127 

4634 

MAC000, 

MAS000 


03130 

1600 

AHC300, 

AH3033 


00131 

4400 

MIC030, 

MIS003 


30132 

4671 

MCC030, 

MCS033 


03133 

4304 

MJC030, 

MJS030 


00134 

3314 

MDC033, 

MDS000 


00135 

3227 

MM C 000, 

MM 30 30 



0200 

♦200 



03200 

7300 


CLA CLL 


03201 

6046 


TLS 

/SET PRINTER FLAG. 

00202 

7300 

START, 

CLA CLL 


03203 

4516 


JMS I TCC093 /CARRIAGE RETURN-LINE FEED. 

^204 

1377 


TAD ("9 


00 2 0 5 

4517 


JMS I TDC003 /TYPE ON TTY. 

03 2 0 6 

4520 


JMS I TBC003 /ACCEPT CHARACTER FROM TTY. 
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00207 

1020 


TAD 

STO R01 



00210 

1376 


TAD 

(-•'M 



0021 1 

7450 


SNA 


/IS IT AN "M”? 


0021 2 

5235 


JMP 

MODSLT 

/YES, GO TO "MODE SELECT". 

03213 

1375 


TAD 

(-3 

/NO, TEST FOR "P". 


00214 

7440 


S2A 




0021 5 

5231 


JMP 

ERROR 

/ILLEGAL CHARACTER 


0021 6 

4520 


JMS 

1 TBC003 

/ACCEPT CHARACTER FROM 

TTY. 

00217 

1020 


TAD 

STOR01 



00220 

1374 


TAD 

<-"E 



00221 

7450 


SNA 


/IS IT AM "E"? 


00222 

5773* 


JMP 

PG EXC T 

/YES, GO TO "PROGRAM EXECUTE". 

00223 

1372 


TAD 

C-7 

/NO, TEST FOR "L". 


00224 

7 450 


SNA 


/IS IT AN "L"? 


00 2 2 5 

5265 


JMP 

PGLIST 

/YES, GO TO "PROGRAM LIST". 

00226 

1372 


TAD 

(-7 

/NO, TEST FOR "S". 


00227 

7450 


SNA 


/IS IT AN "S"? 


00230 

5771 • 


JMP 

PGSLCT 

/YES, GO TO "PROGRAM SELECT". 

00 231 

7300 

ERRORS 

CLA 

CLL 



<30232 

1370 


TAD 

(•'? 



00233 

4517 


JMS 

I TDC000 

/TYPE "?" ON TTY. 


002 3 4 

5202 


JMP 

START 

/RETURN TO "START". 




/THE FOLLOWIMG CODE REPRESENTS THE 




/MODE SELECT CM) INSTRUCTION: 


002 3 5 

1367 

MO DSL T, 

TAD 

(CMT000 



0023 6 

3021 


DC A 

STO R02 



00 23 7 

451 6 


JMS 

I TCC000 

/CARRIAGE RETURN-LINE FEED 

00240 

4521 


JMS 

I TEC000 

/PRINT "MO DEC 0, I ): ". 


00241 

4520 


JMS 

I TBC000 

/ACCEPT CHARACTER FROM 

TTY. 

00242 

1020 


TAD 

STOR01 



00243 

1366 


TAD 

(-♦•R 

/IS IT AN "R"? 


00244 

7450 


SNA 




00245 

5254 


JMP 

.+7 

/YES: SET FLAGC 1 ). 


00 2 4 6 

1365 


TAD 

(-1 

/NO: TEST FOR "S". 


00 2 4 7 

7650 


SNA 

CLA 

/IS IT AN "S"? 


00250 

5255 


JMP 

. + 5 

/YES: clear FLAG(0). 


00251 

1370 


TAD 

("? 

/NO: ILLEGAL CHARACTER. 


00 2 5 2 

4517 


JMS 

I TDC000 

/TYPE "?" ON TTY. 


00253 

5235 


JMP 

MO DSLT 



00254 

7201 


CLA 

lAC 



00 2 5 5 

3056 


DC A 

PGMO DE 

/STORE NUMBER C0 OR 1) 

IN "PGMODE' 

00256 

5202 


JMP 

START 

/RETURN TO START. 


002 57 

1517 

CMT300> 

TEXT /MODECR, S) 

; / 


00260 

0405 






00 2 61 

5022 






00262 

5423 






00263 

5172 






00 2 6 4 

4000 








/THE FOLLOWING CODE REPRESENTS THE 




/PROGRAM 

[ LIST (PL) INSTRUCTION: 


00265 

4267 

PGLIST, 

JMS 

PRINT 



00266 

5202 


JMP 

START 



03267 

0000 

PRINT, 

0 




00270 

7346 


CLA 

CLL CMA RTL 

/PRINT HEADING: 


00271 

4522 


JMS 

I TGC000 

/3 LINE FEED. 
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00272 

4516 

JMS 

I TCC000 

00273 

1364 

TAD 

(CMT001 

00 2 7A 

3021 

DC A 

STOR02 

00275 

4521 

JMS 

I TEC000 

00276 

4516 

JMS 

I TCC000 

00 2 77 

1363 

TAD 

CCMT002 

00300 

3021 

DCA 

STOR02 


/CARRIAGE RETURW-LIME FEED 

/PRli'IT . .VALVE.. .VALVE. . .ABSOLUTE 
/CARRIAGE RETURN-LIME FEED. 
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003 01 

4521 

JMS 1 TEC000 

/PRINT "VALVE. . .COMMAND. . .STATE. . .1 

00 3 0 2 

4516 

JMS I TCC000 

/CARRIAGE return-lime FEED 

00 3 0 3 

4516 

JMS I TCC030 

/CARRIAGE RETURN-LIME FEED 




/END HEADING PRINT. 

003 0 4 

1057 

TAD LISTST 


00 3 0 5 

3010 

DCA LISTPT 

/INITIALIZE LIST POINTER. 

00 3 0 6 

7300 LOOP00, 

CLA CLL 

/LIST PRINT-OUT LOOP: 

003 0 7 

1410 

TAD I USTPT 


003 1 0 

7500 

SMA 

/IS PRINT-OUT COMPLETE? 

0031 1 

5762' 

JM? FI WISH 

/YES, GO TO FINISH. 

003 1 2 

3022 

DCA STOR03 

/NO. CONTINUE. 

003 1 3 

7344 

CLA CLL CMA RAL 

/"TAD (-2" 

00314 

4523 

JMS I TPC000 

/2 SPACES 

003 1 5 

1022 

TAD STOR03 


003 1 6 

7002 

7002 

/BSW 

003 1 7 

0361 

AMD <37 


00 3 2 0 

1176 

TAD C-1 


00321 

4524 

JMS I TQC000 

/2 DIGIT OCTAL PRINT 

00 3 2 2 

1372 

TAD (-7 


00323 

4523 

JMS I TPC000 

/7 SPACES 

00 3 2 4 

1022 

TAD STOR03 

/TEST VALVE COMMAND: 

00325 

7110 

CLL RAR 


00326 

7430 

SZL 


00 3 2 7 

53 41 

JMP .+12 


00330 

7010 

RAR 

■ ■N 

00 3 31 

7430 

SZL 


003 3 2 

5344 

JMP .+12 


003 3 3 

7010 

RAR 


00334 

7430 

SZL 


00 3 3 5 

5347 

JMP .+12 


0033 6 

7300 

CLA CLL 


003 3 7 

1360 

TAD <” 


00 3 40 

5351 

JMP .+11 


003 41 

7300 

CLA CLL 


00342 

1357 

TAD <"0 


00 3 4 3 

5351 

JMP .+6 


00344 

7300 

CLA CLL 


00345 

1356 

TAD <”C 


00 3 4 6 

5351 

JMP .+3 


003 4 7 

7300 

CLA CLL 


00 3 5 0 

1355 

TAD C’l 


00 3 51 

4517 

JMS I TDC000 

/TYPE VALVE COMMAND ON TTY. 

00 3 52 

5754' 

JMP PAGE02 



003541 0400 

00 3 5 5 0311 

00356 0303 

00357 0317 

003 60 0240 

00361 0037 

00362 0471 

00363 0533 

00 3 6 4 0 51 1 

003 6 5 7 7 7 7 

00366 7456 

003 6 7 0 2 5 7 
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0277 





00371 

0600 





20372 

7771 





30373 

1072 





eW374 

7473 





00375 

7775 





00 3 7 6 

7463 





00 3 7 7 

0300 






0400 

PAGE 




C0400 

1377 

PAGE02, 

TAD 

(-7 


00401 

4523 


JMS 

I TPC000 

/7 SPACES 

00402 

1022 


TAD 

STOR03 

/TEST VALVE STATE: 

00403 

0376 


A^D 

<70 


0040 4 

7450 


SMA 


/IS IT A MULL STATE? 

00405 

5234 


JMP 

MULSTE 

/YES^ GO TO "MULL STATE". 

00406 

0375 


AMD 

<60 

/MO. 

00407 

7450 


SMA 


/IS IT AM INOPERATIVE STATE? 

00410 

5243 


JMP 

IMOPST 

/YES> GO TO "IMOP. STATE". 

0041 1 

7346 


CLA 

CLL CMA RTL 

/MO, CONTIMUE TEST. < "TAD<- 3" ) 

0041 2 

3023 


DC A 

STOR04 

/SET UP COUTJTER 

00413 

1022 


TAD 

STOR03 


00414 

0376 


AMD 

<70 


004 1 5 

7002 


7002 

/BSM 

20416 

3022 


DCA 

STOR03 


00417 

5224 


JMP 

. + 5 


00420 

7300 

LOOP01^ 

CLA 

CLL 


00421 

2023 


ISZ 

STOR04 

/INCREMENT AMD TEST COUNTER. 

00422 

7410 


SKP 



1^423 

5252 


JMP 

TIMEPR 


00424 

1022 


TAD 

STOR03 


00425 

7104 


CLL 

RAL 


00426 

3022 


DCA 

STOR03 


20427 

7530 


SZL 

CLL 


00430 

1374 


TAD 

<14 


00431 

1373 


TAD 

<303 


20432 

4517 


JMS 

I TDC000 

/TYPE "C" OR "0" ON TTY. 

00433 

5220 


JMP 

LOOP01 


00434 

7300 

NULSTE, 

CLA 

CLL 


00435 

1372 


TAD 

<CMT003 


00436 

3021 


DCA 

STOR02 


00437 

4521 


JMS 

I TEC000 

/PRINT "...". 

00440 

5252 


JMP 

TIMEPR 


20441 

4040 

CMT003^ 

TEXT / / 


00442 

4000 





00443 

7300 

INOPST* 

CLA 

CLL 


00444 

1371 


TAD 

<CMT004 


00445 

3021 


DCA 

STOR02 


00446 

4521 


JMS 

I TEC000 

/PRINT "IMP". 

00447 

5252 


JMP 

TIMEPR 


00450 

1116 

CMT004, 

TEXT /IMP/ 


00 451 

2000 





00 4 52 

7300 

TIMEPH^ 

CLA 

CLL 


00453 

1370 


TAD 

<-4 


00454 

4523 


JMS 

I TPC000 

/4 SPACES 

00455 

7301 


CLA 

CLL I AC 
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00456 

3767» 

DCA 

MLS030 


00457 

7346 

CLA 

CLL CMA RTL 

/••TAD C-3^’ 

004S0 

3766* 

DCA 

MLS031 


00461 

3765* 

DCA 

MAS002 


00^62 

1410 

TAD 

I LISTPT 


00463 

3764* 

DCA 

MAS003 


00464 

1410 

TAD 

I LISTPT 


00465 

3763* 

DCA 

MAS004 


00466 

4525 

JMS 

I MLC000 

/PRIJJT OUT TIME. 

00467 

451 6 

JMS 

I TCC000 

/CARRIAGE RETUF&J-LINE FEED 

mi\10 

5762* 

JMP 

LOOP00 

/RE-ENTER PRINT-OUT LOOP. 

00471 

7346 

FINISH^ CLA 

CLL CMA RTL 

/••TAD (-3 

00472 

4522 

JMS 

I TGC000 

/3 LINE FEED 

00 473 

7300 

CLA 

CLL 



1057 

TAD 

L1ST3T 


mA75 

3010 

DCA 

LISTPT 


mtxlb 

1060 

TAD 

LISTLM 


00 4 7 7 

3020 

DCA 

STOR01 


00500 

3410 

DCA 

I LISTPT 

/ZERO LIST BUFFER 

00 501 

2020 

ISZ 

STO R0 1 


00502 

5300 

JMP 

.-2 


00 5 0 3 

1057 

TAD 

LIST3T 
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00 504 
00 5 0 5 
03 5 0 6 
00 53 7 
0351 0 
2051 1 
03512 
00513 
005 1 4 
005 1 5 
0051 6 
2051 7 
00 5 2 0 
00 5 21 
00 5 2 2 

00523 

00524 

00525 
00 5 2 6 
00 5 2 7 
00530 
03 531 
00 5 3 2 
00533 
03534 
03 5 3 5 
00 5 3 6 
00537 
00 5 40 
00 5 41 
00542 
00 5 43 
00544 
00 5 4 5 
00 5 4 6 
00 5 47 
30 5 53 
00 5 51 
00 5 5 2 
00553 
00 5 61 
00 5 62 
00563 
03564 
00 5 6 5 
S0566 
00567 
00 570 
00 5 71 
03572 
^573 
00 5 7 4 
00575 
00 5 7 6 
^577 
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3010 
1761 • 
3310 
5710 
0000 
4040 
4040 
4040 
4040 
4026 
0114 
2605 
4040 
4040 
2631 
1426 
0540 
4040 
0102 
2317 

1425 
2405 
0000 
2601 

1426 
0540 
4040 
0317 
1515 
0116 

0440 
4340 
2324 
0124 
0540 
4040 
4040 
241 1 
1505 
0000 
0267 
0306 

4662 
4661 

4663 
4302 
4301 
7774 
0450 

0441 
0303 
0014 
0060 
0070 
7771 


DCA LISTPT 
TAD PRINT 
DC A .+2 
JMP I .+1 

0 

CMT001^ TEXT / 


CMT002, TEXT /VALVE 


/RE-INITIALIZE LISTPT. 

/LEAVE SUBROUTINE "PRINT". 
VALVE VALVE ABSOLUTE/ 


COMMAND STATE TIME/ 
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0600 PAGE 

/THE FOLLOWING CODE HEPRESENTS THE 
/PROGRAM SELECT CPS) INSTRUCTION: 


00 60 0 

7300 

PQSLCT^ 

CLA 

CLL 


00601 

4777* 


JMS 

STPSLT 

/STEP SELECT. 

00602 

1061 


TAD 

RSTKBG 


00 603 

3013 


DCA 

RSTKPT 

/INITIALIZE R STACK POINTER. 

00604 

1062 


TAD 

XSTKBG 


00605 

301 1 


DCA 

XSTKPT 

/INITIALIZE X STACK POINTER. 

00606 

1063 


TAD 

YSTKBG 


80607 

3012 


DCA 

YSTKPT 

/INITIALIZE Y STACK POINTER. 

0061.0. 

1056 


TAD 

PGMO DE 

/WHICH MODE? 

0061 1 

7640 


SZA 

CLA 


0061 2 

5246 


JMP 

PQ SL01 

/REMOTE MODE. 

00613 

4516 


JMS 

I TCC000 

/CARRIAGE RETURN-LINE FEED 

0061.4 

1376 


TAD 

(CMT005 


00615 

3021 


DCA 

STOR02 


006 1 6 

4521 


JMS 

I TEC 000 

/PRINT ’’CDC I,F>: '*. 

00617 

4520 


JMS 

I TBC000 

/ACCEPT CHARACTER FROM TTY. 

80620 

1020 


TAD 

STOR01 


00 621 

1375 


TAD 

(-••F 


09622 

7440 


SZA 


/IS IT AN ”F"? 

00623 

5230 


JMP 

. + 5 

/NO> TEST FOR "I”. 

00624 

1374 


TAD 

CCYDURA-1 

/YES. 

00625 

3015 


DCA 

AUTO 02 


00626 

4533 


JMS 

I MJC000 

/ACCEPT CYCLE DURATION FROM TTY. 

00 6 2 7 

5246 


JMP 

PG SL01 

/CONTINUE PROGRAM SELECT. 

00630 

1373 


TAD 

(-3 


00 631 

7640 


SZA 

CLA 

/IS IT AN "I”? 

00632 

5236 


JMP 

. + 4 

/NO> GO TO •*?”. 

00633 

7313 


CLA 

CLL lAC RTR /YES> SET BIT 0 OF CYDURA TO 1. 

00634 

3054 


DCA 

CYDURA 


00635 

5246 


JMP 

PGSL01 

/CONTINUE PROGRAM SELECT. 

0063 6 

1372 


TAD 

<"? 

/ERROR CASE. 

00637 

4517 


JMS 

I TDC000 

/PRINT •'?•• ON TTY. 

00640 

5202 


JMP 

PGSLCT+2 

/ASK AGAIN CYCLE DURATION. 

80641 

0304 

CMT005^ 

TEXT /CD(1,F): 

/ 

00642 

50] 1 





00643 

5406 





00644 

5172 





00645 

4000 





00 6 4 6 

7300 

PGSL01> 

CLA 

CLL 


00647 

4516 


JMS 

I TCC000 

/CARRIAGE RETUFttJ-LINE FEED. 

00 6 50 

1371 


TAD 

CCMT006 


80651 

3021 


DCA 

STO R02 


00652 

4521 


JMS 

I TEC000 

/PRINT ”R(C>V): ". 

00 6 5 3 

1056 


TAD 

PGMODE 

• 

00654 

7650 


SNA 

CLA 

/WHICH MODE? 

00 655 

5261 


JMP 

. + 4 

/SEQUENCE MODE. 

00 6 5 6 

1370 


TAD 

C”C 

/REMOTE MODE. 

00 6 5 7 

4517 


JMS 

I TDC000 

/TYPE "C" ON TTY. 

00660 

5266 


JMP 

• + 6 


00661 

4520 


JMS 

I TBC000 

/ACCEPT CHARACTER FROM TTY. 

00662 

1020 


TAD 

STOR01 


00663 

1367 


TAD 

C-”C 
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0066A 

7440 


SZA 


/IS IT A "C"? 

00665 

5272 


JMP 

. + 5 

/NO, TEST FOR "V”. 

00666 

1366 


TAD 

(TRAMSR- 1 

/YES. 

00667 

3015 


DC A 

AUTO 02 


^670 

4533 


JMS 

I MJC000 

/ACCEPT TRANSITION RATE FROM TTY. 

00671 

5765* 


JMP 

PGSL03 

/CONTINUE PROGRAM SELECT. 

00672 

1364 


TAD 

<-23 


00 673 

7640 


SZA 

CLA 

/IS IT A ”V? 

00674 

5300 


JMP 

• ■(•4 

/NO^ ERROR CASE. 

00 67 5 

7313 


CLA 

CLL lAC RTR 

/YES, SET BIT 0 OF TRANSR TO 1. 

meie 

3055 


DC A 

TRAN SR 


men 

5765' 


JMP 

PGSL03 

/CONTINUE PROGRAM SELECT. 

00700 

1372 


TAD 

<"? 

/ERROR CASE. 

00 701 

4517 


JMS 

I TDC000 

/PRINT ON TTY. 

007 0 2 

5246 


JMP 

PGSL01 

/RETUIfil TO PGSL01. 

00 7 0 3 

2250 

CMT006j. 

TEXT /RCCjVys / 



0354 





00705 

2651 





0070 6 

7240 





00 7 0 7 

0000 





20764 

7755 





mies 

1000 





00 7 6 6 

0054 





00 7 6 7 

7475 





mns 

0303 





00771 

0703 





00772 

0277 





00 7 7 3 

7775 





00774 

0053 





00 7 7 5 

7472 





mile 

0641 





00 7 7 7 

3055 






1000 

PAGE 




01000 

7300 

PGSL03, 

CLA 

CLL 


01001 

1056 


TAD 

PGMODE 


01002 

7640 


SZA 

CLA 

/WHICH MODE? 

01003 

5252 


JMP 

RECTRM 

/REMOTE MODE, SELECT TERMINAL DEF. 

01004 

1377 


TAD 

<-600 

/SEQUENCE MODE. CONTINUE. 

01,005 

3020 


DC A 

STOR01 

* 

01006 

1061 


TAD 

RSTXBG 


01007 

3014 


DC A 

AUTO 01 
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01.0 1.0 

3414 


DCA 

I AUTO 01 

/ZERO R^X^AND Y STACKS. 

0101 1 

2020 


ISZ 

STOR01 


01012 

5210 


JMP 

.-2 


01013 

1376 


TAD 

(-177 


01014 

3027 


DCA 

STOR08 


01015 

5222 


JMP 

. + 5 


01016 

7300 

LOOP02, 

CLA 

CLL 

/SEQUENCE ACCEPT LOOP 

01017 

2027 


ISZ 

STOR08 


01020 

7410 


SKP 



01021 

5775* 


JMP 

START 

/RETURN TO COMMAND MODE. 

01022 

4516' 


JMS 

I TCC000 

/CARRIAGE RETURN-LINE FEED. 

01023 

1374 


TAD 

(CMT01 1 


01024 

4241 


JMS 

SEQACT 


01025 

341 1 


DCA 

I XSTKPT 

/INSERT X VALUE IN X STACK. 

01026 

1373 


TAD 

(CMT012 


01027 

4241 


JMS 

SEQACT 


01030 

3412 


DCA 

I YSTKPT 

/INSERT Y VALUE IN Y STACK. 

0103 1 

1055 


TAD 

TRAN SR 


01032 

7 500 


SMA 



01033 

5237 


JMP 

. + 4 


01034 

7300 


CLA 

CLL 


01035 

1372 


TAD 

(CMT009 


01036 

4241 


JMS 

SEQACT 


01037 

3413 


DCA 

I RSTKPT 

/INSERT R VALUE IN R STACK. 

01040 

5216 


JMP 

LOOP02 

/RE-ENTER SEQUE2JCE ACCEPT LOOP 

01041 

0000 

SEQACT, 

0 



01042 

3021 


DCA 

STOR02 


01043 

1371 


TAD 

CSTOR03-1 


01044 

3015 


DCA 

AUTO02 


01045 

4516 


JMS 

I TCC000 

/CARRIAGE RETURN-LINE FEED 

01046 

4521 


JMS 

I TEC000 

/PRINT ”X= "Y= •'/ OR '’R= ". 

01047 

4533 


JMS 

I MJC000 

/ACCEPT SINGLE PRECISION VALUE 

01.050 

1022 


TAD 

STOR03 

/FROM TTY. 

01051 

5641 


JMP 

I SEQACT 


01052 

1370 

RECTRM# 

TAD 

(CMT010 


01053 

3021 


DCA 

STOR02 


01.054 

4516 


JMS 

I TCC000 

/CARRIAGE RETURN-LINE FEED 

01055 

4521 


JMS 

I TEC000 

/PRINT ’’T= ”. 

01056 

1367 


TAD 

(TER^L-1 


01057 

3015 


DCA 

AUTO 02 


01060 

4533 


JMS 

I MJC000 

/ACCEPT TERMINAL DEFINITION 

01061 

5775* 


JMP 

START 

/LENGTH FROM TTY. 

01062 

2275 

CMT009, 

TEXT 

/R= / 


01063 

4000 





01064 

2475 

CMT010^ 

TEXT 

/T= / 


01065 

4000 





01066 

3075 

CMT011^ 

TEXT 

/X= / 


01067 

4000 





01070 

3175 

CMT012> 

TEXT 

/Y= / 


01071 

4000 







/THE FOLLOWING CODE REPRESENTS THE 



/PROGRAM 

[ EXECUTE (PE) 

INSTRUCTION* 

01072 

7300 

PGEXCT> 

CLA 

CLL 


01073 

6041 


TSF 
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01074 

5273 


JMP 

1 


01075 

1366 


TAD 

(-36 


01076 

3020 


DCA 

STOR01 


01077 

1103 


TAD 

THETBL 


01 1,00 

3014 


DCA 

AUTO 01 


01 101 

3414 


DCA 

I AUTO 01 

/ZERO THETA STATE TABLE. 

01 102 

2020 


ISZ 

STOR01 


0U03 

5301 


JMP 

.r2 


01.104 

1057 


TAD 

LISTST 


01 105 

3010 


DCA 

LISTPT 


01 106 

1060 


TAD 

LISTLN 


01107 

3020 


DCA 

STOR01 


011 10 

3410 


DCA 

I LISTPT 

/ZERO EXECUTION RECORD LIST. 

01 U 1 

2020 


ISZ 

STOR01 


011.12 

5310 


JMP 

.-2 


01 1 1 3 

1057 


TAD 

LISTST 

/INITIALIZE THE FOLLOWING: 

01 114 

3010 


DCA 

LISTPT 

/ -LIST POINTER/ 

01 115 

3050 


DCA 

ABTIME 

/ -ABSOLUTE TIME/ 

01 116 

3051 


DCA 

ABTIME+1 


01 1 17 

1114 


TAD 

TERMNL 


01120 

7041 


CIA 



01121 

3115 


DCA 

TR.MC.N T 

/ -TERMINAL COUNT, 

01122 

3037 


DCA 

XBEGIN 

/ -INITIAL X/ 

01123 

3040 


DCA 

YBEGIN 

/ -INITIAL Y/ 

01124 

1061 


TAD 

RSTKBG 


01 125 

3013 


DCA 

RSTXPT 

/ -R STACK/ 

01126 

1062 


TAD 

XSTK8G 


01 127 

301 1 


DCA 

XSTKPT 

/ -X STACK/ 

01130 

1063 


TAD 

YSTK8G 


01131 

3012 


DCA 

YSTKPT 

/ -Y STACK/ AND 

01 132 

1054 


TAD 

CYDURA 


01133 

7041 


CIA 



01 134 

3052 


DCA 

CDCONT 

/ -CYCLE DURATION COUNT. 

01135 

6007 


6007 

/CAF 

01136 

650 1 


6501 

/ENABLE DBEI-0 INTERRUPT. 

01 137 

6001- 


ION 


/TURN ON INTERRUPT. 

01 1 40 

57 65* 


JMP 

PG EXTl 


01 165 

1200 





011 66 

7742 





01 167 

0113 





01 170 

1064 





01171 

0021 





01172 

1062 





01 173 

1070 





01174 

1066 





01 175 

0202 





01176 

7601 





01 177 

7200 






1200 

PAGE 




01200 

7300 

PGEXTl, 

CLA 

CLL 


01201 

1056 


TAD 

PGMO DE 


01202 

7640 


SZA 

CLA 

/WHICH MODE? 

01203 

5206 


JMP 

. + 3 

/REMOTE MODECl). 

01204 

4777* 


JMS 

TRESET 

/SEQUENCE MODE(0). 

01205 

5211 


JMP 

PGEXT2 

■ 
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01.206 

1055 

TAD 

TRAM SR 


01.207 

7041 

CIA 



01210 

3053 

DC A 

TRCOMT 

/SET DELAY COUMTER. 

01.2 U 

1056 PGEXT2, 

TAD 

PGMODE 


01212 

7640 

SZA 

CLA 

/WHICH MODE? . 

0121.3 

5216 

JMP 

. + 3 

/REMOTE MODEC 1 ). 

01.21.4 

4776* 

JMS 

SE0RED 

/SEQUENCE MODEC0). 

01215 

7410 

SKP 



01216 

4775* 

JMS 

RMTRED 


01217 

1041 

TAD 

XEND 


01220 

7041 

CIA 



01.221 

1037 

TAD 

XBEGIM 


01222 

7510 

SPA 


/FORM POSITIVE DIFFERENCE. 

01223 

7041 

CIA 



01224 

0175 

AMD 

C7774 

/NOISE ELIMINATION (+ OR -3). 

01225 

7640 

SZA 

CLA 

/INITIAL X=FINAL X? 

01226 

5261 

JMP 

PGEXT3 

/NO: GO TO EXECUTION. 

01227 

1042 

TAD 

YEMD 

/YES: TEST Y* S. 

01230 

7041 

CIA 



01231 

1040 

TAD 

YBEGIN 


01232 

7510 

SPA 


/FORM POSITIVE DIFFERENCE. 

01233 

7041 

CIA 



0123 4 

0175 

AMD 

C7774 

/NOISE ELIMINATION C+ OR -3). 

0123 5 

7640 

SZA 

CLA 

/INITIAL Y=FINAL Y? 

01236 

5261 

JMP 

PGEXT3 

/NO": GO TO EXECUTION. 

01237 

1053 

TAD 

TRCOMT 

/YES: TEST FOR TERMINATION: 

01240 

7640 

SZA 

CLA 

/ DELAY* 0? 

01241 

523 7 

JMP 

.-2 

/NO: REMAIN IN DELAY LOOP. 

01242 

1056 

TAD 

PGMODE 

/YES: RESET DELAY COUNTER: 

01243 

7640 

SZA 

CLA 


01244 

5247 

JMP 

• + 3 


01245 

4777* 

JMS 

TRESET 


01246 

5252 

JMP 

. + 4 


01247 

1055 

TAD 

TRANSR 


01250 

7041 

CIA 



01251 

3053 

DC A 

TRCOM T 


01252 

2115 

ISZ 

TRMCNT 


01253 

5211 

JMP 

PGEXT2 


01254 

1 114 

TAD 

TERMML 


01255 

7041 

CIA 



01256 

3115 

DCA 

TRMCMT 

/RESET TERMINAL COUNT. 

01257 

4774* 

JMS 

IiMTCOM 


01260 

521 1 

J?1P 

PGEXT2 



01261 

1114 

PGEXT3, TAD 

TERMNL 

01.262 

7041 

CIA 


01263 

3114 

DCA 

TERMNL 

01.264 

1037 

TAD 

XBEG IN 

01265 

7041 

CIA 


01266 

1041 

TAD 

XEND 

01267 

7510 

SPA 


01270 

7041 

CIA 


01271 

3773* 

DCA 

MAS004 

01,272 

3772' 

DCA 

MAS003 

01273 

3771 • 

DCA 

MAS002 

01274 

1773' 

TAD 

MAS004 

01275 

3770* 

DCA 

MCS003 

01.276 

4532 

JMS 

I MCC000 

01.277 

1767* 

TAD 

MAS008 

01300 

3111 

DCA 

XSQARH 

01301 

1766* 

TAD 

MAS009 

01302 

3112 

DCA 

XSQARM 

01303 

1765* 

TAD 

MAS010 

01304 

3113' 

DCA 

XSQARL 

01305 

1040 

TAD 

YBEG IN 

01306 

7041 

CIA 


01.307 

1042 

TAD 

YEND 

01.310 

7510 

SPA 


0131 1 

7041 

CIA 


01,312 

3773* 

DCA 

MAS004 

01313 

3772* 

DCA 

MAS003 

01314 

3771 ' 

DCA 

MAS002 

01315 

1773* 

TAD 

MAS004 

01316 

3770* 

DCA 

MCS003 

01317 

4532 

JMS 

I MCC000 

01.320 

4530 

JMS 

I AHC000 

01321 

1111 

TAD 

XSQARH 

01322 

3764* 

DCA 

MAS005 

01323 

1112 

TAD 

XSQARM 

01324 

3763* 

DCA 

MAS006 

01325 

1113' 

TAD 

XSQARL 

01326 

3762* 

DCA 

MAS007 

01327 

4527' 

JMS 

I MAC000 

01330 

1767* 

TAD 

MAS008 

01.331 

3761* 

DCA 

MMS005 

01332 

1766* 

TAD 

MAS009 

01333 

3760* 

DCA 

MMS006 

01334 

1765* 

TAD 

MAS010 

01335 

3757* 

DCA 

MMS007 

01336 

1356 

TAD 

C2734 

01337 

4535 

JMS 

I MMC000 

01340 

1755* 

TAD 

MMS004 

01341 

3,043 ' 

DCA 

DSTNCE 

01342 

1043 

TAD 

DSTNCE 

01343 

3773* 

DCA 

MAS 00 4 

01344 

3772* 

DCA 

MAS003 

01345 

1044 

TAD 

STEPDT 

01346 

3762* 

DCA 

MAS007 

01347 

4534 

JMS 

I MDC000 
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/EXECUTION; 

/RESET TERMINAL COUNT. 


/CALCULATE CXC I3-XC F3 ) t 2. 


/CALCULATE C YC I 3- TC FI ) t 2. 


/CALCULATE ( DELXt 2+DELYt 2) . 


/1 500 - INITIAL UPPER BOUND 
/CALCULATE S QRTC DELXt 2+DELYt 2) . 

/DSTNCE-SQRTC DELXt 2+DELYt 2). . 
/CALCULATE DSTNCE/STEPDT 
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01350 

5754* 


JMP 

PAGE06 


01354 

1 400 





01.355 

3310 





01.356 

2734 





01.357 

3313 





01360 

3312 





01.361 

3311 





01362 

4665 





01363 

4664 





01.3 64 

4663 





01365 

4670 





01366 

4667 





01367 

4666 





01.370 

4756 





01371 

4660 





01372 

4661 





01373 

4662 





01374 

2056 





01375 

3024 





01376 

3016 





01377 

1516 






1400 

PAGE 




01.400 

1777' 

PAGE0 6« 

TAD 

MDS005 


01.40 1 

7001 


I AC 



01402 

3045 


DC A 

STPCMT 

/ S TPCM T*- C DS TM C E/ S TEPDT > + 1 . 

01.403 

1037 


TAD 

XBEGIM 


01.404 

7041 


CIA 



01.405 

1041 


TAD 

XEND 


0140 6 

7510 


SPA 



01.407 

7041 


CIA 



01,410 

3776* 


DC A 

MAS004 


0141 1 

3775* 


DCA 

MAS003 


01412 

1045 


TAD 

STPCMT 


01.413 

3774* 


DCA 

MAS007 


01414 

4534' 


JMS 

I MDC000 

/CALCULATE ABSC (XC F3-XC 13 )/STPCMT3 

01.415 

1037 


TAD 

XBEGIM 


0141.6 

7041 


CIA 



01.417 

1041 


TAD 

XEND 


01420 

7700 


SMA 

CLA 


01421 

5225 


JMP 

. + 4 


01422 

1777* 


TAD 

MDS005 


01423 

7041 ' 


CIA 



01.424 

3777* 


DCA 

MDS005 


01425 

1777* 


TAD 

MDS005 


01426 

3046 


DCA 

DEL TAX 

/DELTAX-CXCF3-XC 13 3/STPCMT 

01427 

1040 


TAD 

YBEG IM 


01430 

7041 


CIA 



01.431 

1042 


TAD 

YEJD 


01432 

7510 


SPA 



01433 

7041 


CIA 



01434 

3776* 


DCA 

MAS004 


01.43 5 

3775* 


DCA 

MAS003 


01436 

1 045 


TAD 

STPCMT 


01.437 

3774* 


DCA 

MAS007 


01440 

4534 


JMS 

I MDC000 

/CALCULATE ABSC C YCF3-YC 1 3 )/STPCMT3 
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01.441 

1040 


TAD 

YBEG IN 

0L442 

7041 


CIA 


01.443 

1042 


TAD 

YEND 

01 444 

7700 


SMA 

CLA 

01445 

5251 


JMP 

. +4 

01.446 

1777* 


TAD 

MDS005 

01.447 

7041 ' 


CIA 


01.450 

3777* 


DCA 

MDS005 

01451 

1777* 


TAD 

MDS005 

01.452 

3047 


DCA 

DELTAY 

01.453 

1045 


TAD 

STPCNT 

01.454 

7041 


CIA 


01455 

3045 


DCA 

STPCNT 

01,456 

2045 

PGEXT4> 

ISZ 

STPCNT 

01.457 

7410 


SKP 


01460 

5302 


JMP 

EXCFNL 

01.461 

103 7 


TAD 

X8EGIN 

01462 

1046 


TAD 

DEL TAX 

01463 

303 7 


DCA 

XBEGIN 

01464 

1040 


TAD 

YBEG IN 

01.465 

1047 


TAD 

DELTAY 

01.466 

3040 


DCA 

YBEG IN 

01467 

1037 


TAD 

XBEGIN 

01.470 

3066 


DCA 

XACEPT 

01 47 1 

1040 


tad 

YBEG IN 

01.472 

3067 


DCA 

YACEPT 

01473 

4773* 


JMS 

XYACPT 

01.474 

4772* 


MS 

RTISQO 

01475 

4771 * 


JMS 

CMDOUT 

01476 

1055 


TAD 

TRAN SR 

01477 

7041 


CIA 


01.500 

3053 


DCA 

TRCON T 

01.50 1 

5256 


JMP 

PGEXT4 

01502 

1041 

EXCFNL^ 

TAD 

XEND 

01503 

3066 


DCA 

XACEPT 

01504 

1041 


TAD 

XEND 

01505 

3037 


DCA 

XBEGIN 

01506 

1042 


TAD 

YEND 

01507 

3067 


DCA 

YACEPT 

0151.0 

1042 


TAD 

YEND 

01511 

3040 


DCA 

YBEG IN 

01512 

4773* 


JMS 

XYACPT 

01513 

47 72* 


JMS 

RTISQO 

01514 

4771 * 


JMS 

CM DO UT 

0151 5 

5770* 


JMP 

PG EXTl 

01516 

0000 

TRESET> 

0 


0151 7 

1413 


TAD 

I RSTKPT 

01520 

7440 


SZA 


01521 

5341 


JMP 

. + 20 

01522 

1054 


TAD 

CYDURA 

01523 

7710 


SPA 

CLA 

01524 

5332 


JMP 

. + 6 

01525 

2052 


ISZ 

CDCONT 

01526 

5332 


JMP 

. + 4 
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/DELTAY-CYCFl-YCn )/STPCMT 


/STPCr^ T--SPTCNT 


/XCn-XCn + DELTAX 


/YCl ]-YCn + DELTAY 


/COMVERT X/Y TO RH0> THETA. 
/LOOKUP SEQUENCE FOR RHO, THETA. 
/EXECUTE SEQUENCE COMMANDS 
/ON 0 DELAY. 

/RESET DELAY COUNTER 


/CONVERT X^Y TO RHO^ THETA. . 
/LOOKUP SEQUENCE FOR RHO> THETA. 
/EXECUTE SEQUENCE COMMANDS. 

/ON 0 DELAY. 
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01527 

6002 


lOF 



01530 

6046 


TLS 


/RESET PRIM TER FLAG. 

01531 

5767’ 


JMP 

TTYSHV+5 

/RETURVI TO COMMAMD MODE. 

01.532 

1061 ' 


TAD 

RSrKBG 

/RESET STACK POIMTERS; ' 

01533 

30 1 3 


DC A 

RSTKPT 


01534 

1062 


TAD 

XSTKBG 


01.53 5 

301 1 


DCA 

XSTKPT 


01536 

1063 


TAD 

YSTKBG 


01537 

3012 


DCA 

YSTKPT 


01540 

1413 


TAD 

I RSTXPT 


01541 

3055 


DCA 

TRAM SR 


01542 

1055 


TAD 

TRAM SR 


01543 

7041 


CIA 



01544 

3053 


DCA 

TRCOMT 

/RESET DELAY COUMT. 

01545 

5716 


JMP 

I TRESET 


01567 

3112 





01570 

1200 





01571 

2474 





01572 

2400 





01573 

161 1 





01574 

4665 





01575 

4661 





01576 

4662 





01577 

3362 






1600 

PAGE 






/’’AHS000” PUTS 

CL) INTO (AH/ AM, At). 

01600 

0000 

AHS000^ 

0 



01 601 

7300 


CLA 

CLL 


01602 

1777* 


TAD 

MAS008 


01603 

3776* 


DCA 

MAS002 


01604 

1775* 


TAD 

MAS009 


01605 

3,774* 


DCA 

MAS003 


01606 

1773* 


TAD 

MAS0 10 


01607 

3772' 


DCA 

MAS004 


01610 

5600" 


JMP 

I AHS000 


01611 

0000 

XYACPT, 

0 


/CONVERT X/Y TO RHO, THETA 

01612 

7300 


CLA 

CLL 


01613 

1066 


TAD 

XACEPT 


01614 

7510 


SPA 



01615 

7041 


CIA 



01616 

3772* 


DCA 

MAS004 


01617 

3774* 


DCA 

MAS003 


01620 

3776* 


DCA 

MAS002 


01621 

1066" 


TAD 

XACEPT 


01622 

7510 


SPA 



01623 

7041 


CIA 



01624 

3771 • 


DCA 

MCS003 


01625 

4532' 


JMS 

I MCC000 

/CALCULATE Xt 2 

01626 

1777* 


TAD 

MAS005 

/STORE Xt2 

01627 

31 1 1 


DCA 

XSQARH 


01630 

1775* 


TAD 

MAS009 


01631 

3112" 


DCA 

XSQARM 
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01632 

1773' 

TAD 

MAS0 10 


01633 

3113' 

DC A 

XSQARL 


01634 

1067 

TAD 

YACEPT 


0163 5 

7510 

SPA 



01636 

7041 

CIA 



01637 

3772* 

DCA 

MAS004 


01640 

3774* 

DC A 

MAS003 


01,641 

3776^ 

DCA 

MAS002 


01642 

1067 

TAD 

YACEPT 


01643 

7510 

SPA 



01 644 

7041 

CIA 



01645 

3771 • 

DCA 

MCS003 


01.646 

4532 

JMS 

I MCC000 

/CALCULATE Yt 2 

01647 

4530 

JMS 

I AHC000 


01 650 

nil 

TAD 

XSQAHH 


01651 

3770' 

DCA 

MAS005 


01652 

1112' 

TAD 

XSQAKI 


01653 

3767' 

DCA 

MAS006 


01654 

1113 

TAD 

XSQARL 


01655 

3766' 

DCA 

MAS007 


01656 

4527 

JMS 

I MAC000 

/CALCULATE Xt 2 + Yt 2 

01657 

1 777' 

TAD 

MAS003 


01660 

3765' 

DCA 

MMS005 


01661 

1775* 

TAD 

MAS009 


01662 

3764* 

DCA 

MMS006 


01663 

1773* 

TAD 

MAS010 


01664 

3763* 

DCA 

MMS007 


01665 

1362 

TAD 

<1356 

/750 - INITIAL UPPER BOUND 

01666 

4535 

JMS 

I MMC000 

/CALCULATE SQRTCXt 2+Yt 2> 

01.667 

1761 ' 

TAD 

MMS004 


01670 

3076 

DCA 

RHO 

/RHO-SQRTCXt 2+Yt 2] 

01671 

1067 

TAD 

YACEPT 


01672 

7510 

SPA 



01673 

7041 

CIA 



01674 

3772' 

DCA 

MAS004 


01675 

3774* 

DCA 

MAS003 

0 

01676 

3776* 

DCA 

MAS002 


01677 

1360“ 

TAD 

<1750 

/I 000 

01700 

3771 ' 

DCA 

MCS003 


01701 

4532 

JMS 

I MCC000 

/1000+Y 

01702 

4530 

JMS 

I AHC000 


01703 

107 6 

TAD 

RHO 


01704 

7440 

SZA 



01705 

5310 

JMP 

• + 3 


01706 

3074 

DCA 

THETA 


01707 

561 1 

JMP 

I XYACPT 


01710 

3766' 

DCA 

MAS007 


01711 

3770' 

DCA 

MAS005 


01712 

3767' 

DCA 

MAS006 


01713 

4534“ 

JMS 

1 MDC000 

/CALCULATE ABSC < 1 000*Y)/RHO D 

01714 

1757* 

TAD 

MDS005 


01715 

3077' 

DCA 

SIN THE 

/ SIN THETA- ABSC C 1 000*Y) /RHO 3 

01716 

3021 

DCA 

STOR02 

/INITIALIZE COUNT. . 

01717 

1100 

TAD 

SINTBL 

/PREPARE SINE 

01720 

3014 

DCA 

AUTO 01 

/TABLE SEARCH. 
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01.721 

1356 


TAD 

C400 

01722 

3075 


DC A 

SMLLST 

01723 

7410 


SKP 


01724 

2021 

S INLOP, 

ISZ 

STOR02 

01725 

1021 


TAD 

STOR02 

01726 

1355 


TAD 

(-56 

01727 

7650 


SNA 

CLA 

01730 

5754* 


JMP 

THETAF 

01731 

5753* 


JMP 

PAGE03 

01753 

2000 - 




01.754 

2020 




01.755 

7722 




01756 

0400 




01.757 

3362 




01760 

1750 




01761 

3310 




01762 

1356 




01763 

3313 




01764 

3312 




01765 

331 1 




01766 

4665 




01.767 

4664 




01,770 

4663 




01771 

4756 




01.772 

4662 




01773 

4670 




01.774 

4661 




01 775 

4667 




01.776 

4660 




01777 

4666 





2000 

PAGE 



02000 

1414 

PAGE03, 

TAD 

I AUTO0 

02001 

7041 


CIA 


02002 

1077 


TAD 

SIN THE 

02003 

7510 


SPA 


02004 

7041 ■ 


CIA 


02005 

3073 


DCA 

SINTST 

02006 

1073 


TAD 

SINTST 

02007 

7041 


CIA 


020 L0 

1075 


TAD 

SMLLST 

0201.1 

7750 


SPA 

SNA CLA 

02012 

5777* 


JMP 

SINLOP 

0201.3 

1073 ' 


TAD 

SINTST 

0201.4 

3075 


DCA 

SMLLST 

02015 

1021 


TAD 

STOR02 

0201.6 

3020 


DCA 

STOR01 

02017 

5777* 


JMP 

SINLOP 

02020 

7300 

THETAF, 

CLA 

CLL 

02021 

1020 


TAD 

STOR01 

02022 

7004 


RAL 


02023 

3074 


DCA 

THETA 


/initialize SMLLST. . 
/SINE TABLE SEARCH LOOP: 
/-46 

/HAS COUNT REACHED 46? 
/YES: EXIT FROM LOOP 


1 /NO: PROCEED WITH BODY 
/OF LOOP: 


/SINTST-ABSCSINTHE-S1N(N>3 


/IS SMLLST LEQ SINTST? 
/YES; REPEAT LOOP. 

/NO: MAKE REPLACEMENTS: 


/REPEAT LOOP. 


O 
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02024 

1066 


TAD 

XACEPT 

02025 

7710 


SPA 

CLA 

02026 

5237 


JMP 

XNEG 

02027 

1067 


TAD 

YACEPT 

02030 

7700 


SMA 

CLA 

02031 

5252 


JM? 

THEQUT 

02032 

1074 


TAD 

THETA 

02033 

7041 


CIA 


02034 

1376 


TAD 

(550 

020 3 5 

3074 


DCA 

THETA 

0203 6 

5252 


JMP 

THEOUT 

02037 

1067 

XNEG> 

TAD 

YACEPT 

02040 

7710 


SPA 

CLA 

02041 

5247 


JMP 

YNEG 

02042 

1074 


TAD 

THETA 

02043 

7041 


CIA 


02044 

1375 


TAD 

(264 

02045 

3074 


DCA 

THETA 

020 46 

5252 


JMP 

THEOUT 

02047 

1074 

YNEG, 

TAD 

THETA 

020 50 

1375 


TAD 

(264 

02 0 51 

3074 


DCA 

THETA 

02052 

1774* 

THEOUT> 

TAD 

XYACPT 

02053 

3255 


DCA 

.+2 

02054 

5655 


JMP 

I . + 1 

02055 

0000 


0 


02056 

0000 

INTCOM, 

0 


02057 

7300 


CLA 

CLL 

02060 

1103 


TAD 

THETBL 

02061 

7001 


lAC 


02062 

3031 


DCA 

1NTCS2 

02063 

1373 


TAD 

(-36 

020 64 

3030 


DCA 

INTCSl 

02065 

7410 


SKP 


02066 

2030 

INTLPl* 

ISZ 

INTCSl 

02067 

7410 


SKP 


02070 

5327 


JMP 

INTCNT 

02071 

7240 


CLA 

CMA 

02072 

6505 


6505 

020 73 

6503 


6503 

02074 

7200 


CLA 


0207 5 

1.030 


TAD 

INTCSl 

0207 6 

1372 


TAD 

(37 

02077 

7002 


7002 

ef2l00 

6506 


6506 

021.01 

1371 


TAD 

(4 

021.02 

6506 


6506 

02103 

6504 


6504 

02 1.04 

3034 


DCA 

INTCS7 

02105 

7040 


CMA 


02106 

6505 


6505 

02107 

6503 


6503 


02 U0. 

7200 


CLA 


02111 

1034 


TAD 

INTCS7 


/THE FOLLOWING GIVES 
/A ROUNDED EVEN 
/THETA APPROXIMATIONS 


/EX-IT'SUB. XYACPT 


/INTERROGATE AND COMPENSATE: 


/INTERROGATE LOOPS 


/DBCO-0 

/DBCI-0 


/BSW 

/DBSO-0 

/DBSO-0 

/DBRI-0 


/DBCO-0 

/DBCI-0 
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I 


021,12 

7110 


CLL 

RAR 


02 U3 

7620 


a?JL 

CLA 

/IS IT AN "OPEN" RESPONSE? 

021 1.4 

5324 


JMP 

• + 1 0 

/NO: . PUT 0 IN BIT 11 - 

021.15 

7.100. 


CLL 

■ ‘ 

/YES: PUT 1 IN BIT 1 1 

021 1.6 

1431 


TAD 

I INTCS2 

/OF VALVE STATE TABLE. 

02 1 i 7 

0370 


ANTD 

<16 

* 

02120 

7001 


lAC 



02121 

3431 


DC A 

I INTCS2 


02 1.22 

2031 


ISZ 

INTCS2 


021.23 

5266 


JMP 

INTLPl 


02124 

1431 


TAD 

I INTCS2 


021.25 

0370 


AND 

<16 


02 126 

5321 


JMP 

.r 5 


02127 

7300 

IMTCMT^ 

CLA 

CLL 


02130 

I 103 


TAD 

THETBL 


021.31 

7001 


lAC 



02132 

3031 


DC A 

INTCS2 


021.33 

1373 


TAD 

<-36 


021.34 

3030 


DCA 

INTCSl 


021.35 

7^10 


SKP 



0213 6 

2030 

IWTLP2> 

ISZ 

INTCSl 

/COMPENSATE LOOP: 

02137 

5344 


J.MP 

. + 5 


02140 

1114 


TAD 

TERMNL 


02141 

7041 


CIA 



021.42 

3115 


DCA 

TRMCNT 

/RESET TERJIINAL COUNT 

02143 

5656 


JMP 

I INTCOM 


02144 

143 1 


TAD 

I INTCS2 


02145 

0367 


AND 

<11 


021.46 

3032 


DCA 

INTCS3 


02147 

7040 


CMA 



021.50. 

1032 


TAD 

INTCS3 


02151 

7650 


SNA 

CLA 

/IS IT 1? 

02152 

5361 


JMP 

STUC-W 

/YES: STUCK OPEN. . 

02153 

1032 


TAD 

IN TC S3 

/NO: TEST FOR CLOSED. 

02154 

1366 


TAD 

<-10 


02155 

7650 


SNA 

CLA 

/IS IT 10? 

02156 

5765* 


JMP 

STUCKC 

/YES: STUCK CLOSED. 

02157 

2031 ~ 


ISZ 

INTCS2 

/NO: RETURN TO LOOP. 

02160 

533 6 


JMP 

INTLP2 

■ ’ 

02161 

1030 

STUCKO^ 

TAD 

INTCSl 


02162 

1372 


TAD 

<37 


02163 

5764* 


JMP 

PAGE05 


02164 

2200 





02165 

2251 





02166 

7770 





02167 

0011 





02170 

0016 





02171 

0004 





02172 

0037 





02173 

7742 





02174 

161 1 





02175 

0264 





02176 

0550 





02177 

1724 






2203 

PAGE 
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02 2 0 0 

3032 

PAGE05, 

DCA 

INTCS3 

02201 

1032 


TAD 

INTO S3 

02202 

7002 


7002 

02203 

137,7 


TAD 

<4054 

02204 

3410 


DCA 

r LISTPT 

02205 

1050 


TAD 

ABTIME 

02206 

3410 


DCA 

I LISTPT 

02207 

1051 


TAD 

ABTIME+1 

0221,0 

3410 


DCA 

I LISTPT 

022 U 

1032 


TAD 

into S3 

02212 

1376 


TAD 

<17 

02213 

3032 


DCA 

IMTCS3 

02214 

1032 


TAD 

INTCS3 

02215 

1375 


TAD 

<-36 

02216 

7540 


SMA 

SZA 

02217 

3032 


DCA 

INTCS3 

02220. 

7300 


CLA 

CLL 

02221 

1032 


TAD 

INTCS3 

02222 

1 103 


TAD 

THETBL 

02223 

3.033 


DCA 

INTCS4 

02224 

1433 


TAD 

I INTCS4 

02225 

0374 


AND 

<6 

02226 

1373 


TAD 

<11 

02227 

3433 


DCA 

I INTCS4 

02230 

7040 


CMA 


02231 

6505 


6505 

022 3 2 

7200 


CLA 


0223 3 

1032 


TAD 

INTCS3 

02234 

7002 


7002 

02235 

6506 


6506 

0223 6 

7001 


lAC 


022 3 7 

6506 


6506 

02240 

6505 


6505 

02241 

1372 


TAD 

<4000 

02242 

3410 


DCA 

I LISTPT 

02243 

1050 


TAD 

ABTIME 

02244 

3410 


DCA 

I LISTPT 

02245 

1051 


TAD 

ABTIME+1 

02246 

3410 


DCA 

I LISTPT 

02247 

2031 


ISZ 

INTCS2 

02250 

5771 • 


JMP 

INTLP2 

02251 

1030 

STUCKC* 

TAD 

INTCSl 

02252 

1370 


TAD 

<3 7 

02253 

3032 


DCA 

INTCS3 

02254 

1032 


TAD 

INTCS3 

022 5 5 

7002 


7002 

02256 

1367 


TAD 

<4024 

022 5 7 

3410 


DCA 

I LISTPT 

02260 

1050 


TAD 

ABTIME 

02261 

3410 


DCA 

I LISTPT 

02262 

1051 


TAD 

ABTIME+I 

02 263 

3410 


DCA 

I LISTPT 

02264 

3033 


DCA 

IN TCS4 

02265 

2033 

STCLOP> 

ISZ 

INTCS4 

02266 

1366 


TAD 

<-10 


/VALVE # STUCK OPEN. 

/BSW 

/PUT "STUCK OPBJ” IN LIST. 

/1 80 DEG. . VALVE #. 

/TEST FOR > 3 6. 

/RECORD "OPEM" COMMAND 
/DBCO-0 

/BSW 

/DBSO-0 

/DBSO-0 

/DBCO-0 

/PUT COMMAND IN LIST 

/RETURN TO LOOP 

/VALVE # STUCK CLOSED 
/BSW 

/PUT "STUCK CLOSED" IN LIST. 

/N (COlWTER) 

/"CLOSED" SEARCH LOOP: 


03267 

1033 


TAD 

INTCS4 

02270 

7650 


SNA 

CLA 

02271 

5247 


JMP 

STUCKC-2 

02272 

1.032 


TAD 

INTCS3 

02273 

1033 


TAD 

INTCS4 

02274 

3034 


DCA 

INTCS7 

02275 

1034 


TAD 

INTCS7 

022 76 

1375 


TAD 

(-36 

02277 

7540 


&MA 

SZA 

02300 

3034 


DCA 

INTCS7 

02301 

7300 


CLA 

CLL 

02302 

1034 


TAD 

IMTCS7 

023 03 

1103 


TAD 

THETBL 

02304 

303 5 


DCA 

INTCS8 

02305 

1435 


TAD 

1 INTCS8 

02306 

0373 


AND 

<11 

02307 

7640 


SZA 

CLA 

02310 

5335 


JMP 

THNNEG 

02311 

1 435 

OPNCMD, 

TAD 

I INTCS8 

023 1 2 

0374 


AND 

<6 

02313 

1373 


TAD 

<1 1 

023 1 4 

3435 


DCA 

I INTCS8 

02315 

7040 


CMA 


023 1.6 

6505 


6505 

02317 

7200 


CLA 


02320 

1034 


TAD 

INTCS7 

02321 

7002 


7002 

023 22 

6506 


6506 

023 2 3 

7001 


lAC 


023 2 4 

6506 


6506 

02325 

6505 


6505 

02326 

1372 


TAD 

(4000 

02327 

3410 


DCA 

I LISTPT 

02330 

1050 


TAD 

ABTIME 

02331 

3410 


DCA 

I LISTPT 

023 3 2 

1051 ' 


TAD 

ABTIME+1 

02333 

3410 


DCA 

I LISTPT 

02334 

5247 


JMP 

STUCKC-2 

02335 

1033 

THNNEG> 

TAD 

INTCS4 ■ 

02336 

7041 


CIA 


023 3 7 

1365 


TAD 

(36 

02340 

1032 


TAD 

INTCS3 

02341 

3034 


DCA 

INTCS7 

02342 

1034 


TAD 

INTCS7 

023 43 

1375 


TAD 

(-36 

02344 

7540 


SMA 

SZA 

02345 

3034 


DCA 

INTCS7 

02346 

7300 


CLA 

CLL 

02347 

1034 


TAD 

INTCS7 

02350 

1103 


TAD 

THETBL 

02351 

3035 


DCA 

INTCS8 

02352 

1435 


TAD 

1 INTCSS 

02353 

0373 


AND 

(11 

02354 

7640 


SZA 

CLA 

02355 

5265 


JMP 

STCLOP 
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/THETA+M. 

/TEST FOR > 3 6. 


/IS THETA + M CLOSED? 

/NO: TEST THETA - M. , 

/YES: ISSUE •’OPEM" COMMAND 

/RECORD "OPE^I” COMMAND. 
/DBCO-0 

/BSW 

/DBSO-0 

/DBSO-0 

/DBCO-0 

/PUT COMMAND IN LIST 

/THETA-N. 

/TEST FOR > 36. 

/IS THETA-N CLOSED? 

/NO: RETURN TO LOOP. 


02356 5311 
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/YES: ISSUE “OPEN” COMMAND. 


JMP OPNCMD 
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02365 

003 6 




023 6 6 

7770 




023 6 7 

4024 




02370 

0037 




023 71 

2136 




023 7 2 

4000 




023 73 

001 1 




02374 

0006 




02375 

7742 




02376 

0017 




02377 

4054 





2400 

PAGE 



02400 

0000 

RTISQO, 

0 


02401 

7300 


CL A 

CLL 

02402 

1377 


TAD 

(12 

02403 

3776* 


DC A 

MCS003 

02404 

1076 


TAD 

RHO 

02405 

3775* 


DCA 

MAS004 

02406 

3774* 


DCA 

MAS002 

02407 

3773* 


DCA 

MAS003 

02410 

4532 “ 


JMS 

I MCC000 

024U 

4530 


JNS 

I AHC000 

02412 

1372 


TAD 

(371 

02413 

3771 ’ 


DCA 

MAS007 

0241.4 

3770* 


DCA 

MAS006 

02415 

3767* 


DCA 

MAS005 

02416 

4534 


JMS 

I MDC000 

0241 7 

1766* 


TAD 

MDS005 

02420 

3072 


DCA 

RHOIND 

02421 

3071 


DCA 

ROTATN 

02422 

1074 


TAD 

THETA 

02423 

3110 


DCA 

THETAS 

02424 

1110 

SLECTH# 

TAD 

THETAS 

02425 

7041 


CIA 


02426 

1365 


TAD 

(-6 

02427 

7700 


SMA 

CLA 

02430 

5235 


JMP 

. + 5 

02431 

1110 


TAD 

THETAS 

02432 

1365 


TAD 

(••6 

02433 

7750 


SPA 

SNA CLA 

02434 

5242 


JMP 

. + 6 

02435 

2071 


ISZ 

ROTATN 

02436 

1110 


Tad 

THETAS 

02437 

1364 


TAD 

(-14 

02 440 

3110 


DCA 

THETAS 

02441 

5224 


JMP 

SLECTH 

02442 

1 1 L0 


TAD 

THETAS 

02443 

7710 


SPA 

CLA 

02444 

7001 


lAC 


02445 

3.1.06 


DCA 

PARITY 

02446 

1110 


TAD 

THETAS 

02447 

7510 


SPA 


02450 

7041 


CIA 


02 451 

3107 


DCA 

THETAL 

02452 

7100 


CLL 



/LOOKUP SEQUENCE FOR RHO, THETA: 
/10 

/CALCULATE 10*RHO 
/249 

/RHOINI>-C 10*RHO/249) 

/INITIALIZE ROTATN 

/AND THETAS 

/IS THETAS > -6? 

/NOS. PROCEED UITH LOOP BODY., 
/YES: CONTINUE TEST. 

/IS THETAS LEQ 6? 

/YES: EXIT LOOP. 

/NO: PROCEED WITH LOOP BODY 

/-12 

/SET PARITY 
/ THETAL-ABS C THETAS > 
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02453 

1107 


TAD 

THETAL 

02454 

7010 


RAR 


02455 

3.105 


DC A 

THEIND 

02456 

1363 


TAD 

<36 

02 4 57 

3775* 


DCA 

MAS004 

02460 

3773* 


DCA 

MAS003 

02461 

3774 


DCA 

MAS002 

02462 

1105 


TAD 

THEIND 

02463 

3776* 


DCA 

MCS003 

02464 

4532" 


JMS 

I MCC000 

02465 

1762* 


TAD 

MAS010 

02466 

1072' 


TAD 

RHOIND 

02467 

1104 


TAD 

SEQTBL 

02 4 7 0 

3020 


DCA 

STOR01 

02471 

1420 


TAD 

I STOR01 

02472 

3070 


DCA 

SEGEJCE 

02473 

5600 


JMP 

I RTISQO 

02474 

0000 

CMDOUT, 

0 


02475 

7.3.0 1 


CLA 

CLL I AC 

02476 

1103 


TAD 

THETBL 

02477 

3020 


DCA 

STOH01 

02530 

1361 


TAD 

<-36 

02501 

3021 


DCA 

STOR02 

02 5 0 2 

7410 


SKP 


02503 

2021 

CMLOPl ^ 

ISZ 

STOR02 

02504 

741,0 


SKP 


02505 

5313 


JMP 

. + 6 , 

0250 6 

1420 


TAD 

I STOR01 

02507 

0360 


AND 

<7 

0251.0 

3420 


DCA 

I STOR01 

02511 

2020 


ISZ 

STOR0 1 

0251,2 

5303 


JMP 

CMLOPl 

0251.3 

1.357 


TAD 

<32 

0251.4 

1071 


TAD 

ROT ATM 

02515 

3101: 


DCA 

VLVENM 

0251.6 

1361 


TAD 

<-36 

02517 

1101 


TAD 

VLVENM 

02520 

7550 


SPA 

SNA 

02521 

7410 


SKP 


025 22 

3101 


DCA 

VLVENM 

025 2 3 

7300 


CLA 

CLL 

02 5 2 4 

1364 


TAD 

<-14 

02525 

3021 


DCA 

STOR02 

02526 

7410 


SKP 


02527 

2021 

CML0P3, 

ISZ 

STOR02 

02530 

7410 


SKP 


02531 

5756* 


JMP 

CMDOTl 

02532 

1361 ' 


TAD 

<-36 

02533 

1101 


TAD 

VLVENM 

0253 4 

7550 


SPA 

SNA 

02 53 5 

7410. 


SKP 


02536 

3101 


DCA 

VLVENM 

0253 7 

.7300 


CLA 

CLL 

02540 

1070 


TAD 

SEGfeNCE 


/THElND-CTHETAL/2) 

/304=THEIMD 

/LOOKUP SEQUENCE 
/EXECUTE SEQUENCE COMMANDS: 

/INITIALIZE COUNTER 

/SET BIT 8 OF 
/VALVE STATES TO 0. , 

/ESTABLISH VALVE # FOR BIT 0 OF SEQ 

/CORRECT VALVE # FOR > 36. 

/SET SEQUENCE BIT COUNT 

/CORRECT VALVE # FOR > 36. 


OMNI-AXIS OPERATING ROUTINE 
PAGE 7-2 


02541 

7004 


RAL 


02542 

3070 


DCA 

SEdNCE 

02543 

5755* 


JMP 

PAGE04 

02555 

2600 ■ 




02 556 

2612 




02 5 57 

0032 




02560 

0007 




02561 

7742 




02 5 62 

4670 




02 5 63 

003 6 




02564 

7764 




02565 

7772 




02 5 6 6 

3362 




02567 

4663 




02570 

4664 




02571 

4665 




02 5 7 2 

0371 




02 573 

4661 




02 5 7 4 

4660 




2E575 

4662 




02 5 7 6 

4756 




02577 

0012 





2600 

PAGE 



02600 

1101 

PAGE0A. 

TAD 

VLVENM 

02601 

1103 


TAD 

THETBL 

02602 

3020 


DCA 

STOR01 

02603 

1377 


TAD 

C10 

02604 

1420 


TAD 

I STOR01 

02 6 0 5 

7420 


SNL 


02 60 6 

0376 


AND 

C7 

02607 

3420 


DCA 

I STOR01 

026 1 0 

2101 


ISZ 

VLVENM 

0261,1 

5775' 


JMP 

CML0P3 

02612 

730 1 ■ 

CMDOTl, 

CLA 

CLL lAC 

026 1 3 

1103 


TAD 

THETBL 

026 14 

3020 


DCA 

STOR01 

026 1 5 

7001 


I AC 


026 1 6 

3022 


DCA 

STOR03 

0261 7 

1374 


TAD 

(-36 

02 6 20 

3023 


DCA 

STOR04 

02621 

7410 


SKP 


02 6 2 2 

2023 

CML0P4, 

ISZ 

STOR04 

02623 

7410 


SKP 


02624 

5316 


JMP 

CMD0T3 , 

02 6 2 5 

1420 


TAD 

I STOR01 

02 6 2 6 

0373 


AND 

<11 

2E627 

3021 


DCA 

STOR02 

02 63 0 

3102 


DCA 

COMI'IND 

02631 

1021 


TAD 

STOR02 

02632 

1372 


TAD 

(-1 

02633 

7100 


CLL 


02 6 3 4 

7640 


SZA 

CLA 

02635 

5243 


JMP 

. + 6 

02636 

1420 


TAD 

I STOR01 

02 63 7 

0371 


AI'JD 

(16 


/PUT COMMAND IN LINK. 


/PUT COMMAND IN BIT S OF VALVE STAE 
/GO TO NEXT VALVE 
/RETU®I TO LOOP. , 

/ESTABLISH VALVE STATE POINTER. 

/M 

/SET VALVE STATE COUNT. . 
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02640 

3420 


DC A 

I STOR01 

02641 

700 5 


lAC 

RAL 

02642 

5254 


JMP 

. + 12 

02 643 

1021 


TAD 

STQR02 

02644 

1370 


TAD 

C-10 

02645 

7100 


CLL 


02646 

7640 


SZA 

CLA 

02647 

5312 


JMP 

CM DOTE 

02 650. 

7001 


lAC 


02651 

1420 


TAD 

I STOR01 

02652 

3420 


DCA 

I STOR01 

02653 

7001 


lAC 


02654 

3027 


DCA 

STOR08 

02655 

1022 


TAD 

STOR03 

02656 

7002 


7002 

2^657 

3.102 


DCA 

COMMND 

02660. 

1053 


TAD 

TRCONT 

02 661 

7640 


SZA 

CLA 

02662 

5260 


JMP 

.-2 

02663 

1057 


TAD 

LISTST 

02664 

7041 


CIA 


02 6 6 5 

1.010 


TAD 

LISTPT 

02666 

1060 


TAD 

LISTLN 

02667 

7710 


SPA 

CLA 

02670 

7410 


SKP 


02671 

5302 


JMP 

. + 11 

02 6 7 2 

7.1.30 


STL 

RAR 

02673 

1102 


TAD 

COMMN D 

02 67 4 

1027 


TAD 

STOR08 

0267 5 

3410 


DCA 

I LISTPT 

02676 

1050 


TAD 

ABTIME 

02677 

3410 


DCA 

I LISTPT 

02700 

1051 


TAD 

A3TIME+1 

02 701 

3410 


DCA 

I LISTPT 

02702 

7040 


CMA 


02 7 0 3 

6505 


6505 

02 7 0 4 

7200 


CLA 


02 7 0 5 

1102 


TAD 

COMMND 

02 7 0 6 

650 6 


6506 

02707 

1027 


TAD 

STOR08 

0271.0 

6506 


6506 

0271,1 

6505 


6505 

02712 

7300 

CMD0T2> 

CLA 

CLL 

0271.3 

2020 


ISZ 

STOR01 

02714 

2022 


ISZ 

STOR03 

0271 5 

5222 


JMP 

CML0P4 

0271,6 

7300 

CMD0T3, 

CLA 

CLL 

0271 7 

1767’ 


TAD 

CMDOUT 

02720 

3322' 


DCA 

♦ + 2 

02 721 

5722 


JMP 

r . + 1 

02 7 22 

0000 


0 


02723 

3064 

SKPCHN/ 

DCA 

AC 

02724 

7004 


RAL 


02 7 2 5 

3065 


DCA 

L 


/SKIP COMMAND EXECUTION.. 


/BSW 

/ESTABLISH VALVE COMMAND 


/IS LIST FULL? 

/NO: PUT COMMAND IN LIST., 

/YES: DON’T PUT COMMAND IN LIST. 


/DBCO-0 


/DBSO-0 EXECUTE COMMAND. 

/DBSO-0 

/DBCO-0 

/INCREMENT VALVE STATE POINTER. 
/INCREMENT VALVE #. 

/RETURN TO LOOP. 


/EXIT SUBROUTINE "CMDOUT”. 


/SAVE ACCUMULATOR 
/SAVE LINK 
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02726 

6046 


TLS 

/RESET PRINTER FLAG. 

W21Z1 

6031 


KSF 

/TTY INT.? 

027 3 0 

7410 


SKP 

/NO: CHECK KA8-E 

02731 

5766* 


JMP TTYSRV 

/YES: SERVICE TTY.. 

02732 

6141 ~ 


6141 

/KA8-E INT. < TIME)? 

6^733 

7410 


SXP 

/MO: CHECK DR8-0 INT. (VALVES). 

027341 

5765* 


JMP TMESRV 

/YES: SERVICE KAS-E(TIME). 

02735 

6502" 


6502 

/DR8-0 INT. (VALVES)? 

02736 

5764* 


JMP START 

/NO: return TO COMMAND MODE. 

<SZ7Z1 

5763* 


JMP DR8SRV 

/YES: SERVICE DR8-0< VALVES).' . 

02763 

3121 




02764 

0202 




02 7 65 

3000 




02 7 66 

3105 




02767 

2474 




(2^770 

7770 




02 7 71 

0016 




02772 

777.7 




02 7 73 

001 1 




02 7 7 4 

7742 




02 7 7 5 

2527 




02 7 7 6 

000.7 




02777 

0010 





3000 

PAGE 



03 0 0 0 

6142 

TMESRV, 

61 42 

/CLEAR TIME FLAG 

03001 

7300 


CLA CLL 


03002 

1051 


TAD ABTIME+1 

/INCREMENT TIME: 

03003 

7001 


lAC 


03004 

3051 


DCA ABTIME+1 


03005 

7004 


RAL 


03006 

1050 


TAD ABTIME 


03007 

3.050 


DCA ABTIME 

/END TIME INCREMENT. 

0301.0, 

1053 


TAD TRCONT 


030U 

7650 


SNA CLA 


030 1 2 

5273 


JMP EXIT 


BQ01.3 

2053 


ISZ TRCONT 


03014 

7000 


NOP 


030 1 5 

5273 


JMP EXIT 


03016 

000.0 

SEQRED^ 

0 


03017 

141 1 


TAD I XSTKPT 


03020 

3041 


DCA XEND 


03 0 21 

1412 


TAD I YSTKPT 


03022 

3042 


DCA VEND 


03023 

5616 


JMP I SEQRED 


03024 

0000 

RMTRED> 

0 

/SAMPLE X^Y FROM DR8- I : 

03025 

7240 


CLA CMA 


03026 

6515 


6515 

/DBCO-1 

03027 

7307 


CLA CLL I AC RTL 


030 3 0. 

6516 


6516 

/DBSO-1 

03031 

6515 


6515 

/DBCO- 1 

03 0 3 2 

6002 


lOF 


03033 

4241 


JMS CYCLE 
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03034 

3041 


DC A X£2'ID 


03035 

4241 


JMS CYCLE 


03 0 3 6 

3042 


DC A YEND 


03037 

6001 


ION 


03040 

5624 


JMP I PCdTRED 


03041 

0000 

CYCLE, 

0 


0304^ 

7305 


CLA CLL lAC RAL 


03043 

651.6 


6516 

/DBSO- 1. 

03044 

6515 


6515 

/DBCO-1 

03045 

7240 


CLA CM A 


03046 

6513 


6513 

/DBCI- 1 

03047 

6512 


6512 

/DBSK-1 

03050 

5247 


JMP .t1 


03051 

6514 


6514 ■ 

/DBRI-1 

03052 

7500 


SMA 


03053 

0377 


AMD (4777 


03054 

5641 


JMP I CYCLE 


03055 

0000 

STPSLT, 

0 

/SELECT ”STEPDT”: 

030 56 

7300 


CLA CLL 


03057 

451 6 


JMS I TCC000 

/CARRIAGE RETURN-LINE FEED. 

03060 

1376 


TAD (CMT007 

. « 

03061 

3021 


DC A STOR02 


03062 

1375 


TAD CSTEPDT-1 


03063 

3015 


DC A AUTO 02 ■ 


03 0 64 

4521 


JMS I TEC000 

/PRINT "STEP: 

03 0 65 

4533 


JMS I MJC000 

/ACCEPT STEPDT FROM TTY., 

03 0 66 

5655 


JMP I STPSLT 


03067 

2324 

CMT007, 

TEXT /STEP* / 


03070 

0520 




03071 

7240 




03072 

0000 
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Ei3073 

6007 

EXI T, 

eoion. 

/CAT 

OT074 

6501 


6501 

/DBEI-0 

03 0 7 5 

1000 


TAD INTRPT 


03076 

3304 


DCA .+6 


03077 

1065 


TAD L 


03100 

7.1 10 


CLL RAR 


031.01 

1064 


TAD AC 


03102 

6001 


ION 


33103 

5704 


JMP I .+1 


03104 

0000 


0 


03105 

7300 

TTY3RV> 

CLA CLL 


031.06 

6036 


KRB 


03107 

1374 


TAD <-225 


03U.0 

7640 


S2A CLA 


03 Ul 

5273 


J'NP EXIT 


031. 1.2 

7300 


CLA CLL 


031.13 

1373 


TAD <“t 


031 14 

4517 


JMS I TDC000 


031 15 

1372 


TAD <"U 


031.1 6 

4517 


JMS I TDC000 


031.17 

4771 • 


JMS DR3SU3 


03120 

57 70* 


JlMP START 


031,21 

7300 

DR8SRV, 

CLA CLL 


03122 

6504 


6504 

/D3RI-0 

031.23 

6503 


6503 

/DBCI-0 

03124 

7012 


RTR 


03125 

7100 


CLL 


031.26 

7010 


RAR 


031.27 

7430 


SZL 

/IS IT A RETCRN TO COMMAND MODE? 

031.30. 

5312 


JMP TTYSRV+5 

/YES. . 

03 1,3 1 

7010 


RAR 

/NO. ' 

031.32 

7430 


SZL 

/IS IT A START RESET? 

031.33 

5336 


JMP .+3 

/YES. 

031.34 

7300- 


CLA CLL 

/NO. ; 

031.35 

5273. 


JMP EXIT 

/RETURN TO BACKGROUND PROGRAM. 

03136 

4771 • 


JMS DR8SUB 


031.37 

5767* 


JMP PGEXGT 


03167 

1072 




03170 

0202 




03171 

3200 




03172 

0325 




03173 

0336 




03174 

7553 




03175 

0043 




03176 

3067 




03177 

4777 





3200 

PAGE 



03200 

0000 

DRSSUB^ 

0 

/SHUT ALL VALVES: 

03201 

7300 


CLA CLL 


03202 

1377 


TAD C-36 


03 2 0 3 

3020 


DCA STOR01 


03204 

7410 


SKP 


03 2 0 5 

2020 

DRSLOP^ 

ISZ STOR01 
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03 2 0 6 

7410 

SKP 



5600 

JHP I DRSSUB 


0321,0 

7040 

CMA 


03 21.1 

6505 

6505 

/DBCO-0 

0321,2 

7200 

CLA 


032 1 3 

1020 

TAD STOR01 


03214 

7041 

CIA 


0321.5 

7002 

7002 

/BSW 

032 1 6 

6506 

6506 

/DBSO-0 

032 1 7 

1376 

TAD (2 


03220 

6506 

6506 

/DBSO-0 

03221 

6505 

6505 

/DBCO-0 

33222 

7300 

CLA CLL 


03223 

3021. 

DCA STOR02 


03 2 2 4 

2021 

ISZ STQR02 

/ 18. 432 MSEC. , DELAY LOOP. 

03225 

5224 

JMP .rl 

' 

03226 

5205 

JMP DR8L0P 





/••MMS000‘* - 

triple PRECISION SQUARE ROOT WITH 



/FORMAT 

: ' SQRT<DH>IW> 

DL)=CT. 

03227 

0000 

MMS000> 

0 



03 2 3 0 

3306 


DCA 

MMS002 

/UPPER BOUND 

03 231 

3307 


DCA 

MMS003 

/LOWER BOUND 

03232 

7300 

t4MS001.» 

CLA 

CLL 


03233 

1.306 


TAD 

MMS002 


03234 

1307 


TAD 

MMS003 


03 23 5 

701.0 


RAR 



03236 

3310 


DCA 

MMS004 

/CENTER MARK 

03237 

1307 


TAD 

Mi^S003 


03240 

7041 


CIA 



03241 

1310 


TAD 

MMS004 


03242 

7650 


SNA 

CLA 


03243 

5627 


JMP 

I MMS000 

/EXIT CCT=SQRT(A>) 

03244 

7300 


CLA 

CLL 


03245 

1310 


TAD 

MMS004 


03246 

3.775* 


DCA 

MCS003 


03247 

1310' 


TAD 

MMS004 


03250 

3774* 


DCA 

MAS004 


03251 

3773* 


DCA 

MAS003 


03252 

3772* 


DCA 

MAS002 


03253 

4532" 


J.MS 

I MCC000 

/SQCT-CT*CT 

03254 

4530 


JMS 

I AHC000 


03255 

1311 


TAD 

MMS005 


03256 

3771 * 


DCA 

MAS005 


03257 

1312 


TAD 

MMS006 


03 2 60 

3770* 


DCA 

MAS006 


03261 

1313 ' 


TAD 

MMS007 


03262 

3767* 


DCA 

MAS007 


03263 

4526' 


JMS 

I MBC000 

/SQCT-NUMBER 

03264 

1766* 


TAD 

MAS008 


03265 

7640' 


SZA 

CLA 


03266 

5275 


JMP 

.+7 


03267 

1765* 


TAD 

MAS009 
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100 
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03270_ 

7640 


SZA 

CL A 


03 271 

5275 


JMP 

• + 4 


03 2 7 2 

1764* 


TAD 

MAS0 10 


03 2 7 3 

7650“ 


SNA 

CLA 


03274 

5627 


JMP 

I MMS000 

/EXIT (CT=SQRT(A>) 

03275 

17 66* 


TAD 

MAS008 


03276 

7710 


SPA 

CLA 


03 2 7 7 

5303 


JMP 

• + 4 


03300 

1310 


TAD 

MMS004 


03301 

3306 


DC A 

t-MS002 

/UB-CT 

03302 

5232 


JMP 

MMS001 

/P*ETURN TO LOOP 

03 3 0 3 

1310 


TAD 

MMS004 


03304 

3307 


DC A 

MM S 003. 

/LB-CT 

03305 

5232 


JMP 

MMS001 

/RETUffiJ TO LOOP 

03306 

0000 

MMS002# 

0 


/UPPER BOlWD (UB) 

03307 

0000 

MMS003^ 

0 


/LOWER BOUND CLB> 

033 1 0 

0000 

MMS004> 

0 


/CENTER MARX (CT) 

03311 

0000 

MMS005# 

0 


/NUMBER H CDH) 

03312 

0000 

MMS006j 

0 


/MIHBER M (DM) 

033 1 3 

0000 

MMS007> 

0 


/NIMBER L CDL) 
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/••MDS000" - DOUBLE PRECISIOM DIVISION WITH FOIMAT 
AL>/BL=TL PLUS REMAINDER FOWD IN "SAMPLE". 


033 14 

0000 

MDS000,. 

0 



0331.5 

7300 


CLA 

CLL 


0331.6 

3,362 


DC A 

MDS005 


033 1 7 

1773' 


TAD 

MAS003 


03 3 2 0. 

3360' 


DCA 

MDS002 

/INITIALIZE SAMPLE: 

03 3 21 

1774' 


TAD 

MAS004 


03 3 2 2 

7004“ 


RAL 



03323 

3774* 


DCA 

MAS004 


03 3 2 4 

1360' 


TAD 

MDS002 


03325 

7004 


RAL 



03326 

3360 


DCA 

MDS002 


03327 

13 63 


TAD 

C-13 


03 3 3 0 

3361 


DCA 

MDS003 


03331 

7410 


SKP 



033 3 2 

2361 

MDS001, 

ISZ 

MDS003 

/ALL BITS SAMPLED? 

03 3 3 3 

741,0 


SHP 


/NO: CONTINUE DIVISION. 

03 3 3 4 

5714 


JMP 

I MDS000 

/YES: EXIT FROM SUBROUTINE. 

03 3 3 5 

1774' 


TAD 

MAS004 

/ATTACH NEXT BIT TO RHS OF SAMPLE: 

03336 

7004 


RAL 



03337 

3774* 


DCA 

MAS004 


03340 

1360“ 


TAD 

MDS002 


03 3 41 

7004 


RAL 



03342 

3360 


DCA 

MDS002 


03343 

17 67* 


TAD 

MAS007 


03344 

7041 


CIA 



03345 

1360 


TAD 

MDS002 


03 3 46 

7510 


SPA 


/IS SAMPLE>DlVrSOR? 

03 3 4 7 

5353 


JMP 

. + 4 

/MO: PUT 0 ON RHS OF DIVIDEND. 

03 3 5 0 

3360 


DCA 

MDS002 

/YES: ESTABLISH NEW SAMPLE 

03 3 51 

7120 


STL 


/AND PUT 1 ON RHS OF DIVIDEND. 

03352 

7410 


SKP 


- - 

03 3 53 

7.300 


CLA 

CLL 


03354 

1362 


TAD 

MDS005 


033 55 

7004 


RAL 



03 3 5 6 

3362 


DCA 

MDS005 


03 3 5 7 

5332 


JMP 

MDS001 


03360 

0000 

MDS0024 

0 


/SAMPLE 

033 61 

0000 

MDS003^ 

0 


/COINT 

03 3 62 

0000 

MDS005> 

0 


/TL 
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03363 7765 

03364 4670 

03 3 6 5 4 667 

03366 4666 

03367 4665 

03370 4664 

03 3 7 1 46 63 

03372 4660 

03373 4661 

03374 4662 

03 3 7 5 475 6 

03376 0002 

03377 7742 

3400 PAGE 

/”TCS000” - SUPPLIES A CARRIAGE RETURN 
/LINE FEED TO THE TELETYPE. 

/n 5 LOCATIONS) 


03400 

0000 

TCS000, 

0 


03401 

7200 


CLA 


03 4 0 2 

6214 


RDF 


03403 

6201 


CDF 

0 

03 4 0 4 

1036 


TAD 

RETURN 

03405 

3212 


DC A 

TCS001 

03 4 0 6 

1377 


TAD 

<215 

03 4 0 7 

4214 


JMS 

TDS000 

03410 

1376 


TAD 

<212 

034U 

4214 


JMS 

TOS000 

0341.2 

0000 

TCS001, 

0 


03413 

5600 


JMP 

I TCS000 


/•'TDS000" - TYPES THE CHARACTER STORED IN 
/THE ACCUMULATOR ON THE TELEPRINTER. . 

/< 14 LOCATIONS) 


03414 

0000 

TDS000, 0 


0341.5 

6041 

TSF 


0341.6 

5215 

JMP 

. r 1 

03417 

6046 

TLS 


03420. 

7300 

CLA 

CLL 

03421 

5614 

JMP 

I TDS000 


/••TBS000” - ACCEPTS CHARACTER FROM TELETYPE, 
/ECHOS IT ON THE TELEPRINTER, AND STORES IT 
/IN "STOR01” IN FIELD 0. 

/C13 LOCATIONS) 


03422 

0000 

TBS000, 0 

03423 

7200 

CLA 

03 4 2 4 

6031 

KSF 

03425 

5224 

JMP 

03 4 2 6 

603 6 

KRB 
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03427 

6041 

TSF 

03430 

5227 

JMP .-rl 

03 431 

6046 

TLS ■ 

03 432 

3020 

DC A STOR01 

03433 

1020 

TAD STOR01 

03434 

1375 

TAD (-203 

03435 

7440 

S2A ■ 

03436 

5245 

JMP .+7 

03437 

1374 

TAD C’*t 

03440 

4517 

JMS I TDC000 

03441 

1373 

TAD <"C 

03442 

4517 

JMS I TDC000 

03443 

5644 

JMP I . + 1 /RETU1S4 TO OS/3 KEYBOARD MONITOR 

03444 

7600 

7600 

03 4 45 

1372 

TAD (-22 

03 446 

7640 

szA cl; A 

03447 

5622 

JMP I TBS000 

03 4 50 

1374 

TAD <”t 

03451 

4517 

JMS I TDC000 

03 452 

1371 

TAD C”U 

03453 

4517 

JMS 1 TDC000 

03 4 54 

5770* 

JMP START /RETURN TO COMMAND MODE. , 

/"TES000” - UNPACKS AND TYPES ON THE 
/teleprinter THE CHARACTER STRING IN THE 
/FIELD OF THE CALLING PROGRAM BEGINNING 
/AT THE ADDRESS IN •'STOH02”. , IT 
/TERMINATES WITH RECEPTION OF AN UNPACKED 
/ZERO., ALSO USES ”STOR01” AND SHOULD 
/BE LOADED INTO FIELD 0. 

/(37 LOCATIONS) 

03455 

0000 

TES000^ 0 

03 4 5 6 

7340 

CLA CLL CMA 

03 457 

3020 

DC A STOR01 

03 460 

1421 

TAD I STOR02 

03461 

2020 

ISZ STOR01 

03462 

7410 

SKP 

03 463 

7002 

7032 /BSW.. 

03464 

0367 

AND (77 

03465 

7450 

SNA 

03466 

7410 

SKP 

03467 

5271 

JMP .+2 

03 470 

5655 

JMP I TES000 

03471 

1366 

TAD (-40 

03472 

7510 

SPA 

03 473 

13 65 

TAD (100 

03474 

1364 

TAD <240 

03475 

4214 

JMS TDS000 

03 4 7 6 

1020 

TAD STOR01 

03 477 

7450 

SNA 

03 5 0 0 

5260 

JMP TES000+3 

03501 

2021 

ISZ STOR02 

03 5 0 2 

5256 

JMP TES000+1 
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/"TGS000” - SUPPLIES A SPECIFIED NUJ1BER OF 
/LIME FEED TO THE TELEPRINTER., IT USES 
/"STOR02" AMD SUBROUTINE "TDS300". . SPECIFY 
/THE NEGATIVE OF THE DESIRED NUMBER OF 
/LIME FEED IN "STOR02” BEFORE ENTERING THE 
/SUBROUTINE. . 

/(13 LOCATIONS) 


03 503 

0000 

TGS000^ 

0 


03504 

3021 


DCA 

STOR02 

03505 

6214 


RDF 


03506 

6201 


CDF 

0 

03507 

1036 


TAD 

RETURN. 

03510 

3315 


DCA 

TGS001 

0351 1 

1376 


TAD 

(212 

035 12 

4214 


JMS 

TD3000 

03513 

2021 


ISZ 

STOH02 

0351 4 

5311 


JMP 

.r3 

035 1 5 

0000 

TGS001, 

0 


035 1 6 

5703 


JMP 

I TGS000 


03517 

0000 

TPS000, 

0 


03 5 2 0 

3021 


DCA 

STOR02 

03521 

6214 


RDF 


03522 

6201 


CDF 

0 

03 5 2 3 

1036 


TAD 

RETURN 

03 5 2 4 

3331 


DCA 

TPS001 

03 5 2 5 

1364 


TAD 

<240 

03526 

451 7 


JMS 

I TDC000 

03 5 2 7 

2021 


ISZ 

STOR02 

03530 

5325 


JMP 

.t3 

03 531 

0000 

TPS001, 

0 

* * 

03 5 3 2 

5717 


JMP 

I TPS000 


03 53 3 

0000 

TQS000# 

0 


03 5 3 4 

3355 


DCA 

TQS002 

03 53 5 

6214 


RDF 


03536 

6201 


CDF 

0 

03 5 3 7 

1036 


TAD 

RETURN. 

03 540 

3353 


DCA 

TQS001 

03 5 41 

1355 


TAD 

TQS002 

03542 

7012 


RTR 


03 5 43 

7010 


RAR 


03544 

0363 


AND 

(7 

03 545 

1362 


TAD 

(260 

03 5 4 6 

4517 


JMS 

r TDC000 

03547 

1355 


TAD 

TQS002 

03550 

0363 


AND 

C7 

03 5 51 

1362 


TAD 

(260 

03 5 52 

4517 


JMS 

I TDC000 

03 5 53 

0000 

TQS001,, 

0 
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03 5 5 A 5733 I TQS003 

03555 0000 TQS002, 0 


03 5 6 2 0 2 60 

03563 0007 

03564 0240 

03 5 6 5 0100 

03 5 6 6 7 7 40 

03567 0077 

03570 0202 

03571 0325 

03572 7756 

03573 0303 

03574 0336 

03575 7575 

03576 021.2 

03577 0215 
3600 PAGE 

/"MLS000" - TRIPLE BIMARY TO DECIMAL COMVERT - 
/CONVERTS A TRIPLE PRECISION BINARY NUMBER 
/STORED IN CAH^AM^AL) TO DECIMAL FORM AND 
/PRINTS IT ON THE TELEPRINTER WITH A DECIMAL 
/POINT PRIOR TO THE LAST TWO DIGITS (I.E. . 
/DOLLARS AND CENTS). SPECIFY (AH, AM, AL ) 'BEFORE 
/ENTERING THE SUBROUTINE.- USES SUBROUTINES 
/"M8S000", "AHS000'*, A'ID '*‘TDS000**. , SET 
/MLS030 TO 0 TO SUPRESS LEADING ZEROS. SET 
/MLS030 TO 1 TO ESTABLISH NULvIBER LENGTH BY 
/REPLACING LEADING ZEROS WITH SPACES! IN THIS 
/CASE SET MLS031 TO D-11, WHERE "D” IS THE 
/DESIRED NUMBER OF DIGIT SPACES. ' 

/C332 LOCATIONS) 



03600 0000 MLS000, 0 


03601 7200 

03602 6214 

03 6 0 3 6201 

03 6 0 4 1 03 6 

03605 3777* 

03606 7300 ~ 

03607 1376 

0361.0 3 7 7 5* 

0361J 1774* 

0361,2 3 0 1 4 

03613 3 41 4 

036 1 4 27 7 5* 

03615 5213 

0361.6 7300 

0361 7 1 77 3* 

03620 7004 

03 621 7420 

03622 5245 

03 623 73 0 0 

03624 1772* 

0362 5 7041 ~ 

03 6 2 6 3 7 7 2* 

03627 7004“ 


CLA 
RDF 
CDF 0 
TAD RETURN 
DCA MLS0 14 
CLA CLL 
TAD (-13 
DCA MLS032 
TAD MLS0ia 
DCA AUTO 01 
DCA I AUTO 01 
ISZ MLS032 
JMP .t2 
CLA CLL 
TAD MAS002 
RAL 
SNL 

JMP MLS001-1 
CLA CLL 
TAD MAS004 
CIA 

DCA MAS004 
RAL 


/SET ALL 11 CH'S TO ZERO. 


/•*M" NEGATIVE? 
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0363 0 

3020 


DC A 

STOR01 

03631 

1771 * 


TAD 

MAS003 

03 63 2 

7040 ‘ 


CMA 


03 633 

1020 


TAD 

STOR01 

03 63 4 

3771* 


DCA 

MAS003 

03 6 3 5 

7004' 


RAL 


03 63 6 

0020 


DCA 

STO R01 

03 63 7 

1773* 


TAD 

MAS002 

03 640 

7.040" 


CMA 


03641 

1020 


TAD 

STOR01 

03 6 4 2 

3773* 


DCA 

MAS002 

03643 

1370" 


TAD 

(•*- 

03 644 

4767* 


JMS 

TDS000 

03 6 4 5 

7300" 


CLA 

CLL 

03 646 

1366 

MLS001^ 

TAD 

Cl 124 

03647 

3765* 


DCA 

MAS005 

03 650 

1364 


TAD 

C276 

03 651 

3763* 


DCA 

MAS006 

03 6 52 

1362" 


TAD 

(2000 

03 653 

3761 * 


DCA 

MAS007 

03654 

4760* 


JMS 

MBS000 

03 6 55 

1757* 


TAD 

MAS003 

03 656 

7004" 


RAL 


03657 

7430 


SZL 


03660 

5264 


JMP 

MLS002 

03661 

4756* 


JMS 

AHS00.0 

03 662 

2755* 


ISZ 

MLS019. 

03663 

5246" 


JMP 

MLS001 

03 6 64 

7300 

MLS002> 

CLA 

CLL 

03 6 6 5 

1354 


TAD 

(73 

03666 

37 65* 


DCA 

MAS005 

03667 

1353" 


TAD 

(4654 

03 6 70 

3763* 


DCA 

MAS006 

03671 

1352 ■ 


TAD 

(5000 

03672 

3761 * 


DCA 

MAS007 

03673 

4760* 


JMS 

MBS000 

03674 

1757* 


TAD 

MAS008 

03 6 7 5 

7004" 


RAL 


03676 

7430 


SZL 


03677 

5303 


JMP 

MLS003 

03 7 0 0 

4756* 


JMS 

AHS000 

03701 

2751 * 


ISZ 

MLS020 

03702 

5264" 


JMP 

MLS002 

03703 

7300 

MLS003, 

CLA 

CLL 

03 7 0 4 

1350 


TAD 

(5 

03 7 0 5 

3765* 


DCA 

MAS005 

03706 

1347 


TAD 

(7536 

03707 

3763* 


DCA 

MAS006 

03 71.0 

1346" 


TAD 

(400 

0371.1 

3761 * 


DCA 

MAS007 

037 12 

4760* 


JMS 

MBS 000 

0371 3 

1757* 


TAD 

MAS008 

03714 

7004" 


RAL 


0371.5 

7430 


SZL 


03716 

5745* 


JMP 

MLS004 
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037 1 7 

4756* 


JMS 

AHS000 

03720 

2744»^ 


ISZ 

MLS021 

03 721 

5303 


JMP 

MLS003 

03744 

4270 




03 7 45 

4000 




03746 

0400 




03747 

7536 




03 7 50 

0005 




03751 

4267 




03752 

5000 




03 7 5 3 

4654 




03 7 5 4 

0073 




03 7 5 5 

4266 




03 7 5 6 

1600 




03 7 5 7 

4666 




03760 

4600 




03761 

4665 




03762 

2000 




03763 

4664 




03764 

0276 




03765 

4663 




03766 

1 124 




03767 

3414 




03 7 7 0 

0255 




03 7 71 

4661 




03 7 7 2 

4662 




03 773 

4660 




03774 

4265 




03 7 7 5 

4303 




03 7 7 6 

7765 




03 7 7 7 

4227 





4000 

PAGE 



04000 

7300 

ML 5004^ 

CLA 

CLL 

04001 

3.777* 


DCA 

MAS005 

04002 

1376' 


TAD 

<461 1 

04003 

3775* 


DCA 

MA5006 

04004 

1374 ' 


TAD 

<3200 

04005 

3773* 


DCA 

MAS007 

04006 

4772* 


JMS 

MBS000 

04007 

1771 •' 


TAD 

MAS008 

04010 

7004' 


RAL 


040 1 1 

743.0 


SZL 


04012 

5216 


JMP 

MLS005 

040 13 

4770* 


JMS 

AHS000 

040 14 

2767* 


ISZ 

MLS022 

04015 

5200" 


JMP 

MLS004 

04016 

7300 

MLS005, 

CLA 

CLL 

04017 

3777* 


DCA 

MAS005 

04020 

1366 


TAD 

<364 

04021 

3775* 


DCA 

IMAS006 

04022 

1365 


TAD 

<1 100 

04023 

3773* 


DCA 

MAS007 

04024 

4772' 


JMS 

MBS000 

04025 

1771 ' 


TAD 

MAS008 

04026 

7004 ■ 


RAL 
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04027 

7430 

SZL 


04030 

523 4 

JMP 

MLS006 

04031 

4770* 

JMS 

AHS000 

04032 

276 ^^ 

ISZ 

MLS023 

04033 

5216“ 

JMP 

MLS005 
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04034 

7300 

MLS006, 

CLA 

0403 5 

3777* 


DCA 

04036 

1363“ 


TAD 

04037 

3.775 • 


DCA 

04040 

1362 ‘ 


TAD 

04041 

3773' 


DCA 

04042 

4772*^ 


JMS 

04043 

1771* 


TAD 

04044 

7004“ 


RAL 

04045 

7430 


SZL 

04046 

5252 


JMP 

04047 

4770* 


JMS 

04050 

2761 


ISZ 

04051 

5234 


JMP 

04052 

7300 

MLS007j 

CLA 

04053 

3777* 

■ 

DCA 

04054 

7005“ 


lAC 

04055 

3775* 


DCA 

04056 

1360 


TAD 

04057 

3773' 


DCA 

04060 

4772» 


JMS 

04061 

1771 • 


TAD 

04062 

7004' 


RAL 

04063 

7430 


SZL 

04064 

5270 


JMP 

04065 

4770* 


JMS 

04066 

2757* 


ISZ 

04067 

5252“ 


JMP 

04070 

7300 

MLS008, 

CLA 

04071 

3777* 


DCA 

04072 

3775*^ 


DCA 

04073 

1356“ 


TAD 

04074 

3773* 


DCA 

04075 

4772' 


JMS 

04076 

1771 ' 


TAD 

04077 

7004“ 


RAL 

041.00 

7430 


SZL 

04101 

5305 


JMP 

04102 

4770* 


JMS 

04103 

2755' 


ISZ 

04104 

5270“ 


JMP 

04105 

7300 

MLS009, 

CLA 

04106 

3777* 


DCA 

04107 

3775' 


DCA 

04110 

1354 


TAD 

04111 

3773* 


DCA 

04112 

4772' 


JMS 

04113 

1771' 


TAD 

04114 

7004“ 


RAL 

04115 

7430 


SZL 

04116 

5322 


JMP 

04117 

4770* 


JMS 

04120 

2753* 


ISZ 

04121 

5305' 


JMP 

04122 

7300 

MLS010, 

CLA 


CLL 

MAS005 

C30 

MAS006 

C3240 

MAS007 

MBS000 

MAS008 


MLS007 

AHS000 

MLS024 

MLS006 

CLL 

MAS005 

RAL /SAME AS "TAD C 2” 

MAS006 

(3420 

MAS007 

MBS000 

MAS003 


MLS008 

AHS000 

MLS025 

MLS007 

CLL 

MAS005 

MA5006 

(1750 

MAS007 

MBS000 

MAS008 


MLS009 

AHS000 

HLS026 

MLS008 

CLL 

MAS005 

MAS006 

(144 

MAS007 

MBS000 

MAS008 


MLS010 

AHS000 

MLS027 

MLS009 

CLL 
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04123 

3777* 


DCA 

MAS005 

04124 

3775 


DGA 

MAS006 

041.25 

1352“ 


TAD 

C12 

041.26 

3773* 


DCA 

MAS007 

041,27 

4772' 


JMS 

MBS000 

04130 

1771 ' 


TAD 

MAS008 

04131 

7004 ■ 


RAL 


04132 

7430 


SZL 


04133 

5751 ’ 


JMP 

MLS011 

04134 

4770' 


JMS 

AHS000 

04135 

2750* 


ISZ 

MLS028 

04136 

5322' 


JMP 

MLS010 

04150 

4277 




04151 

4200 




04152 

0012 




04153 

427 6 




04154 

0144 




04155 

4275 




04156 

1750 




04157 

4274 




04160 

3420 




04161 

4273 




04162 

3240 




04163 

0030 




04164 

4272 




04 165 

1100 




04166 

0364 




04167 

4271 




04170 

1600 




0417 1 

4666 




04172 

4600 




04173 

4665 




04174 

3200 




04175 

4664 




04176 

461 1 




04177 

4663 





4200 

PAGE . . 



04200 

7300 

MLS0I 1, 

CL A 

CLL 

04201 

1777* 


TAD 

MAS004 

04202 

3300 ■ 


DCA 

MLS029 

04203 

1376 


TAD 

(-1 1 

04204 

3303 


DCA 

MLS032 

04205 

1265 


TAD 

MLS015 

04206 

3014 


DCA 

AUTO 01 

04207 

7300 

MLS012^ 

CLA 

CLL 

04210 

2303 


ISZ 

MLS 032 

04211 

5232 


JMP 

MLS015 

04212 

1414 

MLS013^ 

TAD 

I AUTO 01 

04213 

1375 


TAD 

<2 60 

04214 

7410 


SKP 


04215 

1374 


TAD 

(256 

04216 

4773' 


JMS 

TDS000 . 

04217 

1414 


TAD 

I AUTO 01 

04220 

1375 


TAD 

(260 

04221 

4773* 


JMS 

TDS000 
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04222 

1414 


TAD 

I AUTO 01 

04223 

1375 


TAD 

C260 

04224 

4773* 


JMS 

TDS000 

04225 

1772' 


TAD 

MLS000 

04226 

3231 " 


DC A 

. + 3 

04227 

0000 

MLS01 4, 

0 

■ 

04230 

5631 


JMP 

I .+ 1 

04231 

0000 


0 


04232 

1414 

MLS0I 5, 

TAD 

I AUTO 01 

04233 

7450 


SNA 


0423 4 

7410 


SKP 


0423 5 

5242 


JMP 

. + 5 

04236 

1301 


TAD 

MLS030 

04237 

7440 


S2A 


04240 

5253 


JMP 

MLS0.17 

04241 

5207 


JMP 

ML 301 2 

04242 

1375 


TAD 

(260 

042 43 

4773* 


JMS 

TDS000 

04244 

2303 

MLS016, 

ISZ 

MLS032 

04245 

7410 


SKP 


04246 

521,2 


JMP 

MLS013 . 

04247 

1414 


TAD 

I AUTO01 

04250 

1375 


TAD 

<260 

04251 

4773* 


JMS 

TDS000 

04252 

5244 


JMP 

MLS016 

04253 

7300 

MLS01 7, 

CLA 

CLL 

04254 

2302 


ISZ 

MLS031 

04255 

7000 


NOP 


04256 

1302 


TAD 

MLS031 

04257 

7550 


SPA 

SNA , 

04260 

5207 


JMP 

MLS012 

04261 

7300 


CLA 

CLL 

04262 

1371 


TAD 

<240 

04263 

4773* 


JMS 

TDS000 

04264 

5207 


JMP 

MLS0 12 

04265 

4265 

ML S0 1.8, 

' • . 


04266 

0000 

MLS019, 

0 

/CHI 1 

04267 

0000 

MLS020, 

0 

/CK10 

04270 

0000 

MLS021, 

0 

/CH9 

04271 

0000 

MLS022, 

0 

/CH8 

04272 

0000 

MLS023, 

0 

/CH7 

04273 

0000 

MLS024, 

0 

/CH6 

04274 

0000 

MLS025, 

0 

/CH5 

04275 

0000 

MLS026, 

0 

/CH4 

04276 

0000 

MLS027, 

0 

/CH3 

04277 

0000 

MLS028, 

0 

/CH2 

04300 

0000 

MLS029, 

0 

/CHI 

04301 

0000 

MLS030, 

0 


04302 

0000 

MLS031, 

0 


04303 

0000 

MLS032, 

0 



/"MJS000” - ACCEPTS A SliMGLE PRECISION DECIMAL 
/NUMBER FROM THE TELETYPE, CONVERTS I T TO BINARY 
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/USING SUBROUTINE ’'MlS0a0" mi) DEPOSITS IT IN THE 
/ADDRESS FOLLOWING THAT STORED IN "AUTO02”. . ALSO 
/USES "AUTO 01". 


/Cl 6 LOCATIONS) 


043 04 

0000 MJS000> 

0 


04305 

7200 

CLA 


04306 

6214 

RDF 


04307 

6201 

CDF 

0 

043 1.0 

1036 

TAD 

RETUravJ. 

043 U 

3321 

DCA 

NJS001 

043 12 

4770' 

JNS 

MIS000 

04313 

0.00.0 

0 


043 1,4 

1313 

TAD 

.rl 

0431.5 

7001 

I AC 

*■ ' 

0431,6 

3014 

DCA 

AUTO 01 

04317 

141,4 

TAD 

I AUTO 01 

04320 

3415 

DCA 

I AUTO 02 

04321 

0000 MJSI301j 

0 


04322 

5704 

JMP 

I NJS000 
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04370 

4400 


04371 

0240 


04372 

3600 


04373 

3414 


04374 

0256 


04375 

0260 


04376 

7767 


04377 

4662 

4400 

PAGE 

/’•MIS000” - ACCEPTS UP TO 1 1 DECIMAL NUMBERS FROM 
/THE teletype AND CONVERTS THEM TO A TRIPLE 
/PRECISION NUMBER STORED IN "STOR03’*, "STOR04'*> 
/AND ••STOR05*'. THE FIRST INSTRUCTION FOLLOVING 
/THE CALL TO" THIS SUBROUTINE WILL BE CHANGED TO 
/CONTAIN THE ADDRESS OF THE HIGH WORD (l.E. . 
/"STOR03") IN THE TRIPLE PRECISION NUMBER. ,' THE 
/SUBROUTINE RETUR^JS TO THE SECOND INSTRUCTION 
/FOLLOWING THE CALL TO THE SUBROUTINE. 



/< 122 LOCATIONS) 

04400 

0000 

MIS000, 0 

04401 

7.200 

CLA 

04402 

1204 

TAD .+2 

04403 

7410 

SK? ■ 

04404 

0022 

STOR03 

04405 

3600 

DCA X MIS000 

04406 

7200 

CLA 

04407 

6214 

RDF 

0441.0 

6201 

CDF 0 

0441.1 

1036 

TAD RETURN 

0441.2 

3346 

DCA MIS005 

0441,3 

2200 

ISZ MIS000 

044L4 

3021 

DCA STOR02 

0441.5 

3022 

DCA STOR03 

0441.6 

3023 

DCA STOR04 

04417 

3024 

DCA STOR05 

04420 

1377 

TAD C-13 

04421 

3025 

DCA STOR06 

04422 

4776* 

MIS00U JMS TBS000 

04423 

1,020 ■ 

TAD STOR01 

04424 

1375 

TAD (-”0 

04425 

7510 

SPA 

04426 

5305 

JMP MIS003 

04427 

1374 

TAD C-12 

04430 

7500 

SMA 

04431 

5305 

JMP MIS003 

04432 

7300 

CLA CLL 

04433 

1022 

TAD STOR03 

04434 

3773* 

DCA MAS002 

04435 

1023' 

TAD STOR04 

0443 6 

3772* 

DCA MAS003 

04437 

1024' 

TAD STOR05 

04440 

3771 * 

DCA MAS004 

04441 

1370' 

TAD <12 
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04442 

3767* 


DC A 

MCS003 

04443 

4766*^ 


JMS 

MCS000 

04444 

1.020' 


TAD 

STOR01 

04445 

1375 


TAD 

(-260 

04446 

7100 


OLD 


04447 

1765* 


TAD 

MAS0 1 0 

04450 

3024' 


DC A 

STOR05 

04451 

7004 


RAL 


04452 

1764» 


TAD 

MAS009 

04453 

3023 


DCA 

STOR04 

04454 

7004 


RAL 


04455 

1763* 


TAD 

MAS003 

04456 

3022" 


DCA 

STOR03 

04457 

2025 


ISZ 

STOR06 

04460 

5222 


JMP 

MIS001 

04461 

1021 

MIS002> 

TAD 

STOR02 

04462 

7450 


SMA 


04463 

5345 


JMP 

M1S004 

04464 

7300 


CLA 

CLL 

04465 

1024 


TAD 

STOR05 

04466 

7041 


CIA 


04467 

3024 


DCA 

STOR05 

04470 

7004 


RAL 


04471 

3.020 


DCA 

STOR01 

04472 

1023 


TAD 

STOR04 

04473 

7040 


CMA 


04474 

1020 


TAD 

STOR01 

04475 

3023 


DCA 

STOR04 

04476 

7004 


RAL 


04477 

3020 


DCA 

STOR01 

04500 

1022 


TAD 

STOR03 

04501 

7040 


CMA 


04502 

1020 


TAD 

STOR01 

04503 

3022 


DCA 

STOR03 

04504 

5345 


JMP 

MIS004 

04505 

7300 

MIS003^ 

CLA 

CLL 

04506 

1020 


TAD 

STOR01 

04507 

1362 


TAD 


045 L0. 

7440 


SZA 


045 U 

5313 


JMP 

• + 2 

0451.2 

5222 


JMP 

MIS001 

0451.3 

7300 


CLA 

CLL 

0451.4 

1020 


TAD 

STOR01 

0451.5 

1361 


TAD 


0451.6 

7440 


SZA 

■ ■ 

04517 

5321 


JMP 

. + 2 

04520 

5222 


JMP 

MIS001 

04521 

7300 


CLA 

CLL 

04522 

1020 


TAD 

STOR01 

04523 

1360 


TAD 

<-**+ 

04524 

7440 


SZA 


04525 

5330. 


JMP 

. + 3 

04526 

3021 


DCA 

STO R02 

04527 

5222 


JMP 

MIS001 

04530 

1357 


TAD 

(-2 
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04S531 7440 

04532 533 6 

04533 7340 

04534 3021 

04535 5222 

04536 7200 

04537 1020 

04540 1356 

04541 7450 

04542 5214 

04543 7300 

04544 5261 

04545 7300 

04546 0000 

04547 5600 

04556 7441 

04557 7776 

04560 7525 

04561 7522 

34562 7524 

04563 4666 

04564 4667 

04565 4670 

04566 4671 

04567 4756 

04570 0012 

04571 4662 

34572 4661 

04573 4660 

04574 7766 

04575 7520 

04576 3422 

04577 77 65 
4600 PAGE 

/”I'IBS000*' - TRIPLE PRECISION SUBTRACTIOM WITH 
/FORMAT (AH^AM^AL) - (BH^Bi'I^BL) = (CH^CM^CL). 
/SPECIFY (AH,AM>AL) AMD (BH^BM^BL) BEFORE ENTERIMG 
/THE SUBROUTINE. , DIFFERENCE IS CCH*CM»CL>.. 


SZA 

JMP .+4 
CM A ■ 

DC A STOH02 
JMP MIS331 
CLA 

TAD STOR31 
TAD C-”- 
SMA 

JMP MIS001-6 
CLA CLL 
JMP MIS002 
MIS004, CLA CLL 
MIS005, 0 

JMP I MIS000 


/C37 LOCATIONS) 


04600 

3000 

MBS000^ 0 


04601 

7200 

CLA 


04602 

6214 

RDF 


04603 

6201 

CDF 

0 

34634 

103 6 

TAD 

RETURN 

04635 

3231 

DCA 

MBS001 

04636 

7330 

CLA 

CLL 

04 607 

1265 

TAD 

MAS007 

0461.0. 

7041 

CIA 


0461.1 

1262 

TAD 

MAS004 

04612 

3270 

DCA 

MAS010 

04613 

7034 

RAL 


04614 

3233 

DCA 

MBS002 
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0A61.5 

1264 


TAD 

MAS006 

0461.6 

7040 


CMA 


04617 

1.261 


TAD 

MAS003 

04620 

1233 


TAD 

MBS002 

04621 

3267 


DCA 

MAS009 

04622 

7004 


RAL 


04623 

3233 


DCA 

MBS002 

04624 

1263 


TAD 

MAS005 

04625 

7040 


CMA 


04626 

1260 


TAD 

MAS002 

04627 

1233 


TAD 

MBS002 

04630 

3266 


DCA 

MAS008 

04631 

0000 

MBS001., 

0 


04632 

5600 


JMP 

I MBS000 

04633 

0000 

MBS002, 

0 



/••MAS000" - TRIPLE PRECISION ADDITION WITH FORMAT 
/CAH,AMj,AL) + => (CH>CM^CL)., SPECIFY 

/CAH>AM,AL) AND CBH>K1>8L) BEFORE ENTERING THE 
/SUBROUTINE. SUM IS CCH>CM>CL).. 

/(29 LOCATIONS) 


04634 

0000 

MAS000i 

0 



04635 

7200 


CLA 



04636 

6214 


RDF 



04637 

6201 


CDF 

0 


04640 

1036 


TAD 

RETURT^. 


04641 

3256 


DCA 

MAS001 


04642 

7300 


CLA 

CLL 


04643 

1.262 


TAD 

MAS004 


04644 

1265 


TAD 

MAS007 


04645 

3270 


DCA 

MAS01 0 


04646 

7004 


RAL 



04647 

1.261 


TAD 

MAS003 


04650 

1264 


TAD 

MAS006 


04651 

3267 


DCA 

MAS009 


04652 

7004 


RAL 



04653 

1.260 


TAD 

MAS002 


04654 

1263 


TAD 

MAS005 


04655 

3266 


DCA 

MA3008 


04656 

0000 

MAS001., 

0 



04657 

5634 


JMP 

I MAS000 

04660 

0000 

MAS002^ 

0 


/AH 

04661 

0000 

MAS003> 

0 


/AM 

04662 

0000 

MAS004, 

0 


/AL 

04663 

0000 

MAS005i 

0 


/BH 

04664 

0000 

MAS006.» 

0 


/BM 

04665 

0000 

MAS007.» 

0 


/BL 

04666 

0000 

MAS008^ 

0 


/CH 

04667 

0000 

MAS009, 

0 


/CM 

04670 

0000 

MAS010> 

0 


/CL 


/’'MCS000" 


TRIPLE PRECISION MULTIPLICATION WITH 
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/FORMAT Afl, AL) = <GH*CM>GL). 

/BHL AMD <AH^AM^AL> BEFORE EaTERIfJG 


04671 

0000 

HC5000* 

0 


04672 

7300 


CLA 

CLL 

04673 

3266 


DCA 

MAS008 

04674 

3267 


DCA 

MAS009 

04675 

3270 


DCA 

NAS010 

04676 

1377 


TAD 

(-14 

04677 

3357 


DCA 

MCS005 

04700 

7410 


SKP 


04701 

2357 

MCS00U 

ISZ 

MCS005 

04702 

7410 


SKP 


04703 

5671 


JNP 

I MCS000 

04704 

7300 


CLA 

CLL 

0470 5 

1356 


TAD 

NCS003 

04706 

7004 


RAL 


04707 

3356 


DCA 

MCS003 

0471.0 

7423 


SNL 


04 7 U 

53,01 


JMP 

MCS001 

0471,2 

7100 


CLL 


04713 

1357 


TAD 

MCS005 

0471 4 

3360 


DCA 

MCS006 

04715 

1260 


TAD 

MAS002 

0471.6 

3263. 


DCA 

MAS035 

04717 

1261 


TAD 

MAS003 

04720. 

3264 


DCA 

NAS006 

04721 

1262 


TAD 

MAS004 

04722 

3265 


DCA 

MAS007 

04723 

2360 

MCS002, 

ISZ 

MCS006 

04724 

7410 


SKP 


04725 

5341 


JNP 

NCS004 

04726 

7300 


CLA 

CLL 

04727 

1265 


TAD 

NAS007 

04730 

7004 


RAL 


04731 

3265 


DCA 

MAS007 

04732 

1264 


TAD 

MAS006 

04733 

7094 


RAL 


04734 

3264 


DCA 

NAS00 6 

04735 

1263 


TAD 

MAS005 

04736 

7004 


RAL 


04737 

3263 


DCA 

MAS005 

04740 

5323 


JMP 

MCS002 

04741 

7300 

MCS004, 

CLA 

CLL 

04742 

1265 


TAD 

NAS037 

04743 

1270 


TAD 

MAS 01.0 

04744 

3270 


DCA 

MAS01 0 

04745 

7004 


RAL 


04746 

1.264 


TAD 

MAS096 

04747 

1267 


TAD 

MAS009 

04750 

3267 


DCA 

MAS009 

04751 

7004 


RAL 


04752 

1.263 


TAD 

MAS005 

04753 

1266 


TAD 

MAS008 

04754 

3266 


DCA 

MAS008 


SPECIFY 
SUBROUTINE. . 


/-I 2 

/WORD BIT COUNT 
/WORD BIT LOOPS 


/2MPY COUNT 


/2MPY LOOP: 


/ADD PARTIAL PRODUCT TO PRODUCT; 
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04755 

5301 


04756 

0000 

MCS003, 

04757 

0000 

DlCS005j 

04760 

0000 

MCS006, 

04777 

77 64 



5600 

*5600 

05600 

0000 


05601 

0043 


05602 

01.06 


05603 

0151 


05604 

0213 


05605 

0256 


05606 

0320 


05607 

0362 


0561.0 

0424 


056 U 

0465 


0561.2 

0526 


0561.3 

0567 


0561.4 

0627 


05615 

0666 


05616 

0725 


05617 

0764 


05620 

1.022 


05621 

1.057 


05622 

1 114 


05623 

U50 


05624 

1.203 


05625 

1.235 


05626 

1.267 


05627 

1.317 


05630 

1.347 


05631 

137 6 


05632 

1424 


05633 

1451 


05634 

1475 


05635 

1520 


05636 

1542 


05637 

1560 


05640 

1603 


05641 

1622 


05642 

1637 


05643 

1654 


05644 

1667 


05645 

1705 


05646 

1712 


05647 

1722 


05650 

1731 


0565! 

1736 


05652 

1743 


05653 

1746 


05654 

1747 


05655 

1750 



JMP MCS001 

0 /BHL 

0 
0 


0 

43 
106 
151 
213 
256 
320 
362 
42 4 
465 
526 
567 
627 
666 
72 5 
764 
1022 
1.0.57 
1114 
1150 
1203 
1.235 
1.267 
1317 
1.3 47 
1376 
1424 
1451 
1.475 
1520 
1.542 
1.560 
1.603 
1,622 
1.637 
1654 
1667 
170 1 
1.712 
1 722 
1.731 
1736 
1743 
1.7 46 
1747 
1750 
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06000. 

6000 

0000 

06001 

0000 

06002 

01.00 

06003 

0100 

06004 

2004 

06005 

1010 

06006 

0240 

06007 

2104 

06010 

0610 

0601.1 

0340 

060 1.2 

2244 

06013 

1250 

0601.4 

0660 

0601.5 

2524 

0601.6 

1530 

06017 

0760 

06020 

2664 

06021 

1670 

06022 

3552 

06023 

3354 

06024 

2764 

06025 

1770 

06026 

3674 

06027 

5771 

06030 

3772 

06031 

3774 

06032 

3774 

06033 

7776 

06034 

7776 

06035 

7776 

06036 

0000 

06037 

0000 

06040 

0100 

06041 

0100 

06042 

2004 

06043 

4101 

06044 

0240 

06045 

1202 

06046 

0604 

06047 

2422 

060 50 

1424 

06051 

0704 

06052 

0650 

06053 

2324 

06054 

1330 

06055 

0750 

06056 

2564 

06057 

1570 

06060 

2761 

06061 

2754 

06062 

17 64 

06063 

5374 

060 64 

3574 


sfc6000 

0 

0 

0100 
0100 
2004 
1010 
0240 
2104 
0610 
0340 
2244 
1250 
0660 
2524 
1530 
07 60 
2664 
1670 
3552 
3354 
2764 
1770 
3674 
5771 
3772 
3774 
3774 
7776 
7776 
7776 
0 

0 . 

0100 
0100 
2004 
4101 
0240 
1202 
0604 
2422 
1424 
0704 
0650 
2324 
1330 
0750 
2564 
1570 
2761 
27 54 
1764 
53 74 
3 574 


/THETA=0s 


/THETA=2: 
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06065 

5766 

57 66 


06066 

3766 

3766 


06067 

7376 

7376 


06070 

7376 

7376 


06071 

7773 

7773 


06072 

7773 

7773 


06073 

7773 

7773 


06074 

0000 

0 

/THETA=4 

06075 

0000 

0 


06076 

4001 

4001 


06077 

2002 

2002 


06100 

1004 

1004 


061,01 

0410 

0410 


06 1.02 

1201 

1201 


06103 

4030 

4030 


06104 

0510 

0510 


06 1.05 

0320 

0320 


061.06 

2144 

21 44 


06107 

1 1 50 

1150 


06U.0 

0560 

0560 


061.1.1 

1514 

1514 


06 1.1.2 

0744 

0744 


06U3 

0730 

073 0 


06 U 4 

1.654 

1.654 


06 U 5 

1564 

1564 


06 U 6 

1370 

1370 


06 U 7 

1.7S2 

1752 


06 1.20 

1754 

1754 


06121 

3372 

3372 


061.22 

2774 

2774 


061.23 

3755 

3755 


061.24 

3756 

3756 


06125 

6775 

6775 


061.26 

6776 

6776 


061.27 

6776 

6776 


061.30 

6776 

6776 


061.31 

6776 

6776 


06132 

0000 

0 

/THETA=6 

061.33 

0000 

0 


06134 

4001 

4001 


061.35 

2002 

2002 


061.3 6 

1004 

1004 


06137 

0410 

0410 


061.40 

0140 

0140 


061.41 

0602 

0602 


06142 

4221 

4221 


061.43 

2412 

2412 


061.44 

1414 

1414 


061.45 

0630 

0630 


061.46 

0360 

0360 


061.47 

1322 

1322 


061.50 

0724 

0724 


061.51 

1651 

1651 


061.52 

1,562 

1562 


06153 

1364 

1364 



06115/3 

06155 
061.56 
06157 
06160 
061 61 
061,62 
061 63 
061 6 

06165 

06166 
06167 


001 75 
00176 
001 77 
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0770 
2677 ! 
1674 
27 ? : 
2772 
1774 
7367 
6773 

3775 

3776 
3776 
7777 


V 774 
7777 
2 ‘‘23 


0770 
2674 
167 4 

2771 

2772 
1774 
73 67 
6773 

3775 

3776 
3776 
7777 
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ABTIME 

0050 

LOOP00. 

0306 

MLS01 1 

4200 

RMTRED 

3024 

AC 

0064 

LOOP01 

0420 

MLS 01.2 

4207 

RO TATN 

0071. 

AHC000 

0130 

LOOP02 

1016 

MLS013 

4212 

RSTKBG 

0061 


lem 

MAC030 

0127 

MLS014 

4227 

RSTKPT 

0013 

AUTO 01 

0014 

MAS000 

4634 

MLS015 

4232 

HTISQO 

2400 

AUTO 02 

0015 

MAS001 

4656 

MLS016 

4244 

SEQACT 

1041 

CDCOMT 

0052 

MAS002 

4660 

MLS01.7 

4253 

SEQNCE 

0070 

OIDOTS 

261.2 

MAS003 

4661 

MLS018 

4265 

SEQRED 

3016 

G-iDOTa 

271.2 

MAS004 

4662 

MLS019 

4266 

SEQTBL 

0104 

CMD0T3 

2716 

MAS005 

4663 

MLS020 

4267 

S INLOP 

1724 

GIDOUT 

2474 

MAS006 

4664 

MLS021 

4270. 

S INTEL 

0100 

QiLOPl 

2503 

MAS007 

4665 

MLS022 

4271 

SIN THE 

0077 

(2«ILOP3 

2527 

MAS008 

4666 

MLS023 

4272 

SINTST 

0073 

CML0P4 

2622 

MAS 00.9 

4667 

MLS024 

4273 

SKPCHN 

2723 

CMT000 

0257 

MAS010 

4670 

MLS025 

4274 

SLECTH 

2424 

Q'!T001 

051 1 

MBC000 

0126 

MLS026 

4275 

SMLLST 

0075 

mT002 

0533 

MBS000 

460 0 

MLS027 

4276 

START 

0202 

QiT003 

0441 

ME300 1 

4631 

MLS028 

4277 

STCLOP 

2265 

C4T004 

0450 

MBS002 

4633 

MLS029 

4300 

STEPDT 

0044 

Q1TS05 

0641 

MCC000 

0132 

MLS030 

4301 

STOR01 

0020 

GyiT006 

0703 

MCS000 

4671 

MLS031 

4302 

STOR02 

0021 

QIT007 

3.067 

MCS001 

47 01 

MLS032 

4303 

STOH03 

0022 

G-JT009 

1062 

MCS002 

4723 

MMC000 

0135 

STOR04 

0023 

CMT0 10 

1064 

MCS003 

4756 

MMS000 

3227 

STOR05 

0024 

GIT0U 

1.066 

MCS004 

4741 

MMS001 

3232 

STOR06 

0025 

GITS 12 

1070 

MCS005 

4757 

MMS002 

3306 

STO R07 

0026 

GO’.IMMD 

0102 

MCS006 

4760 

MMS003 

3307 

SrOR08 

0027 

C'fCLE 

3041 

MDC000 

0134 

MMS004 

33 10 

STPCNT 

0045 

CYDURA 

0054 

MDS000. 

3314 

MMS005 

331 1 

STPSLT 

3055 

DEL TAX 

0046 

MDS001 

3332 

MMS006 

3312 

STUCKC 

2251. 

DELTAY 

0047 

MDS002 

33 60 

MMS007 

3313 

STUCKO 

2161 

DR8L0P 

3205 

MDS003 

3361 

MO DSLT 

0235 

TBC000 

0120 

DRSSRV 

3121 

MDS005 

3362 

MULSTE 

0434 

TBS000 

3422 

[R8SUB 

3200 

MIC000 

0131 

0PM CM D 

2311 

TCC003 

01 16 

ESTMCE 

0043 

MIS000 

4400 

PAGE02 

0400 

TCS000 

3400 

EKROR 

0231 ■ 

MIS001 

4422 

PAGE03 

2000 

TCS001 

3412 

E<CFNL 

1502 

MIS002 

4461 

PAGE04 

2600 

TDC000 

01 17 

EXIT 

3073 

MIS003 

450 5 

PAGE05 

2200 

TDS000 

3414 

FIM I SH 

0471 

MIS004 

4545 

PAGE06 

1430 

TEC000 

01.21 

MOPST 

0443 

MIS005 

4546 

PARI TY 

0106 

TERMNL 

0114 

rJTCMT 

2127 

MJC000 

0133 

PG EXCT 

1,072 

TES000 

3455 

EITC0!1 

2056 

MJS000 

4304 

PGEXTl 

1200 

TGC000 

0122 

INTCSl 

0030 

MJS331 

43 21 

PGEXT2 

1211 

TGS000 

3503 

MTCS2 

003 2 

MLC030 

0125 

PGEXT3 

1,261 

TGS001 

3515 

INTGS3 

0032 

MLS000, 

3600 

PGEXT4 

1456 

THE IN D 

0105 

2WTCS4 

0033 

MLS001 

3646 

PGLIST 

0265 

THEOUT 

2052 

E1TCS7 

0334 

MLS002 

3664 

PGMO DE 

0056 

THETA 

007 A 

I'lTGSa 

003 5 

MLS003 

3703 

PGSLCT 

0600 

THETAF 

2020 

Zvm PI 

2356 

MLS004 

4000 

PGSL0I 

0646 

THETAL 

01.07 

SMTLP2 

2136 

MLS005 

4016 

PGSL03 

1000 

THETAS 

01,10 

©JTRPT 

0000 

MLS006 

4034 

PRINT 

0267 

THETBL 

0103 

L 

0065 

MLS007 

4052 

RECTRM 

1052 

TmNEG 

2335 

LISTLM 

0060 

MLS008 

4070 

RETURN 

0036 

TIMEPR 

0452 

LISTPT 

0010 

MLS009 

4105 

RHO 

0076 

TMESRV 

3000 

LISTS! 

0057 

MLS010 

4122 

RHOIND 

0072 

TPC000 

0123 
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‘IPS000. 3517 
TPS001 3531 
TQC000 0124 
TOS000. 3533 
TQS001 3553 
T3S002 3555 
mANSR 0055 
TRCOWT 0053 
THESET 1516 
TOMCNT 01.15 
TTYSRV 3105 
VLVEMM 0101 
XACEPT 0066 
XBEGIN 0037 
XEND 0041 
JWEG 2037 
KSQARH 01.U 
XSQARL 01.13 
XSQARM 0112 
XSTK3G 0062 
XSTKPT 001.1 
XTACPT 1611 
YACEPT 0067 
YBEGIM 0040 
YEMD 0042 
YJEG 2047 
YSTOBG 0063 
YSTKPT 0012 


B. The Omni -Ax is Test Routine 


The Test Routine provides a simplified method of operator control 
of the system and a quick means of verifying that all portions 
of the hardware are working properly. The program is operated 
through the ASR keyboard and an interactive operator/controller 
mode provides separate operation of all circuits in the interface 
panel and operation of all valves and pressure switches of the 
nozzle assembly. The operator may open (0) or shut (S) any valve 
or any sequence of valves at his discretion. He may further in- 
terrogate all pressure switches to determine true valve status. 

An additional check of the analog to digitol converter contained 
in the interface panel is provided by this routine. Following is 
a flow diagram of this routine and a program listing. 


FLOW CHART 


TEST ROUTINE 


/ START - \ 
^/set printer \ 
flag / 

/ 


■£N 


JSizL 


I Clear Accumulator and 


link - turn interrupt 


: system off - Initialize 
1 st ore d const ants. 


^ 

Jump to carriage return 
and line feed subroutine 
CRLF 


I 






Initialize auto -index 
registers 

J 



subroutine - CHK 




V 
















Output Valve No. selection 
code then output operation 
code 


















Get output command code-extract valve 
selection code and output-clear 
register of interface buffer card - 
Qutou^; operation code of command word 
Reaa input buffer of interface card 



\j/ 

Get code for printing an 
"0" for open - store in ar 
auto-indexed register 






Reset interrogate auto- 
index register and compli- 
ment & restore register 
T2 - Turn interrupt sys- 
tem off - Initialize prin- 
ter ■■ 


Jump to CRLF subroutine 


Get stored "open" or 
"shut" inf. on interro- 
gated valve - Store in 
"hold" - Increment T2 


Get stored octual number 
of interrogated valve. 
Store in TEMP 


Get octual valve of MSD 
of valve number - Jump to 
TYPO subroutine 




































o 


\ 

















Clear Accumulator, Read 
keyboard buffer - Clear 
[keyboard flag 








Get operation 
code for "open" 
store in "OCO" 


Add input value to comple- 
ment of value for "shut" 
command . 



Is Accumula^ 
\ = 0 / 


Add input value to comple-i 
ment of value for "interrol- 
gate" command | 


Get operation 
code for "shut 
store in "OCO" 







Add input valu e to comple 
ment of value for A to D 
command 






Add input value to comple- 
ment of value for the "re- 





























INTERRUPT 


Store contents of Accum- 
ulator and link 


Increment the counter 
CTR 












PROGRAM LIST 


OMNI-AXIS 
TEST ROUTINE 

*0000 


0000 

0000 

ZERO, 

0 

0001 

3100 


DGA STORl 

0002 

7010 


RAR 

0003 

3101 


DGA ST0R2 

0004 

5405 


JMP I XSUB 

0005 

0400 

XSUB, 

*10 

SUB 

0010 

0000 

XIO, 

0000 

0011 

0000 

Xll, 

*100 

0000 

0100 

0000 

STORl , 

0000 

0101 

0000 

ST0R2, 

0000 

0102 

0000 

CTR, 

0000 

0103 

0000 

CLK, 

0000 

0104 

1000 

CNT, 

1000 

0105 

0600 

XCHK, 

GHK 

0106 

0216 

XOPCD, 

OPGD 

0107 

0215 

GR, 

0215 

0110 

0212 

LF, 

0212 

0111 

0000 

OGO, 

0000 

0112 

2200 

RESET2, 

2200 

0113 

0007 

MASKH, 

0007 

0114 

7770 

MASKJ, 

7770 

0115 

0000 

TEMPI, 

*120 

0000 

0120 

0000 

LISN, 

0 

0121 

6031 


KSF 

0122 

5121 


JMP .-1 

0123 • 

6036 


KRB 

0124 

6046 


TLS 

0125 

5520 


JMP I LISN 

0126 

0000 

GRLF, 

0000 

0127 

1107 


TAD CR 

0130 

4134 


JMS TYPO 

0131 

1110 


TAD LF 

0132 

4134 


JMS TYPO 

0133 

5526 


JMP I GRLF 

0134 

0000 

TYPO, 

0000 

0135 

6041 


TSF 

0136 

5135 


JMP .-1 

0137 

6046 


TLS 

0140 

7200 


GLA 

0141 

5534 

*200 

JMP I TYPO 

0200 

6046 

START, 

TLS 

0201 

7300 

FIRST, 

GLA GLL 


0202 

6002 


lOF 

0203 

1104 


TAD CNT 

0204 

7041 


CIA 

0205 

3102 


DCA CTR 

0206 

3331 


DCA T1 

0207 

3103 


DCA CLK 

0210 

3737 


DCA I XT2 

0211 

4126 


JMS CRLF 

0212 

1332 


TAD RESET 1 

0213 

3010 


DCA XIO 

0214 

1112 


TAD RESET2 

0215 

3011 


DCA Xll 

0216 

4120 

OPCD, 

JMS LISN 

0217 

4505 


JMS I XCHK 

0220 

4126 


JMS CRLF 

0221 

4120 

AGNl, 

JMS LISN 

0222 

7100 


CLL 

0223 

0333 


AND MASKl 

0224 

7006 


RTL 

0225 

7004 


RAL 

0226 

3334 


DCA R1 

0227 

4120 


JMS LISN 

0230 

0333 


AND MA.SK1 

0231 

1334 


TAD R1 

0232 

7001 


lAC 

0233 

3115 


DCA TEMPI 

0234 

1115 


TAD TEMPI 

0235 

7002 


BSW 

0236 

1111 


TAD OCO 

0237 

3410 


DCA I XIO 

0240 

2331 


ISZ T1 

0241 

4120 

LOOP, 

JMS LISN 

0242 

4726 


JMS I XCMPR 

0243 

4126 


JMS CRLF 

0244 

6041 


TSF 

0245 

5244 


JMP .-1 

0246 

6042 


TCF 

0247 

6001 


ION 

0250 

7300 

OUTPUT, 

CLA CLL 

0251 

1332 


TAD RESETl 

0252 

3010 


DCA XIO 

0253 

1331 


TAD T1 

0254 

7041 


CIA • 

0255 

3331 


DCA T1 

0256 

1410 

GET, 

TAD I XIO 

0257 

3335 


DCA CMDOUT 

0260 

7200 

WAITl, 

CLA 

0261 

1103 


TAD CLK 

0262 

7440 


SZA 

0263 

5260 


JMP .-3 

0264 

7240 


CLA CMA 

0265 

6505 


DBCOO 

0266 

7200 


CLA 

0267 

1335 

CMD, 

TAD CMDOUT 



0270 

0113 


AND MASKH 

0271 

3330 


DCA CODE 

0272 

1330 


TAD CODE 

0273 

1336 


TAD C5 

0274 

7440 


SZA 

0275 

7410 


SKP 

0276 

5725 


JMP I XINTO 

0277 

7300 


CLA CLL 

0300 

1335 


TAD CMDOUT 

0301 

0114 


AND MASK! 

0302 

6506 


DBS 00 

0303 

1330 


TAD CODE 

0304 

6506 


DBS 00 

0305 

7240 


CLA CMA 

0306 

6505 


DBCOO 

0307 

7200 


CLA 

0310 

2331 

ISZT, 

ISZ Tl 

0311 

5316 


JMP WAIT2 

0312 

1737 


TAD I XT2 

0313 

7440 


SZA 

0314 

5727 


JMP I XINTOT 

0315 

5200 


JMP START 

0316 

7305 

WAIT 2, 

CLA CLL lAC RAL 

0317 

7041 


CIA 

0320 

1104 


TAD CNT 

0321 

1102 


TAD CTR 

0322 

7440 


SZA 

0323 

5316 


JMP WAIT2 

0324 

5256 


JMP GET 

0325 

1400 

XINTO, 

INTO 

0326 

1200 

XCMPR, 

CMPR 

0327 

1433 

XINTOT, 

INTOT 

0330 

0000 

CODE, 

0000 

0331 

0000 

Tl, 

0000 

0332 

1600 

RESET 1, 

1600 

0333 

0007 

MASKl, 

0007 

0334 

0000 

Rl, 

0000 

0335 

0000 

CMDOUT, 

0000 

0336 

7774 

C5, 

7774 

0337 

1504 

XT2, 

*400 

T2 

0400 

2102 

SUB, 

ISZ CTR 

0401 

5210 


JMP .+7 

0402 

1102 


TAD CTR 

0403 

3103 


DCA CLK 

0404 

1104 


TAD CNT 

0405 

7041 


CIA 

0406 

3102 


DCA CTR 

0407 

5212 


JMP OUT 

0410 

1102 


TAD CTR 

0411 

3103 


DCA CLK 

0412 

7300 

OUT, 

CLA CLL 


0413 

6142 


CLCK 

0414 

6504 


DBRIO 

0415 

0232 


AND MASKS 

0416 

7440 


SZA 

0417 

5230 


JMP HALT 

0420 

7240 

CLR, 

CLA CMA 

0421 

6503 


DBG 10 

0422 

7200 


CLA 

0423 

1101 


TAD ST0R2 

0424 

7004 


RAL 

0425 

1100 


TAD STORl 

0426 

6001 


ION 

0427 

5400 


JMP I ZERO 

0430 

7402 

HALT, 

HLT 

0431 

5220 


JMP CLR 

0432 

0004 

MASKS, 

*600 

0004 

0600 

0000 

CHK, 

0 

0601 

3244 


DCA IN 

0602 

1244 


TAD IN 

0603 

1245 


TAD Cl 

0604 

7640 


SZA CLA 

0605 

5211 


JMP CHKl 

0606 

1246 


TAD OP 

0607 

3111 


DCA OCO 

0610 

5600 


JMP I CHK 

0611 

1244 

CHKl, 

TAD IN 

0612 

1253 


TAD C2 

0613 

7440 


SZA 

0614 

5220 


JMP CHK2 

0615 

1247 


TAD SH 

0616 

3111 


DCA OCO 

0617 

5600 


JMP I CHK 

0620 

7200 

CHK2, 

CLA 

0621 

1244 


TAD IN 

0622 

1250 


TAD CINT 

0623 

7440 


SZA 

0624 

5230 


JMP CHK3 

0625 

1251 


TAD INT 

0626 

3111 


DCA OCO 

0627 

5600 


JMP I CHK 

0630 

7200 

CHK3, 

CLA 

0631 

1244 


TAD IN 

0632 

1252 


TAD CA 

0633 

7440 


SZA 

0634 

7410 


SKP 

0635 

5643 


JMP I XATD 

0636 

7305 


CLA CLL lAC RAL 

0637 

7041 


CIA 

0640 

1200 


TAD CHK 

0641 

3200 


DCA CHK 

0642 

5600 


JMP I CHK 

0643 

1000 

XATD, 

ATD 

0644 

0000 

IN, 

0000 

0645 

7461 

Cl, 

7461 

0646 

0001 

OP, 

0001 


0647 

0002 

SH, 

0002 

0650 

7467 

CINT, 

7467 

0651 

0004 

INT, 

0004 

0652 

7477 

CA, 

7477 

0653 

7455 

SJSoo 

7455 

1000 

6046 

ATD, 

TLS 

1001 

7402 


HLT 

1002 

7404 


OSR 

1003 

7041 


CIA 

1004 

3247 


DCA COUNT 

1005 

4126 


JMS CRLF 

1006 

1245 

RETR, 

TAD SKI 

1007 

3243 


DCA Kl 

1010 

1246 


TAD SK2 

1011 

3244 


DCA K2 

1012 

4126 


JMS CRLF 

1013 

4265 


JMS ADIN 

1014 

1250 


TAD XA 

1015 

4134 


JMS TYPO 

1016 

1251 


TAD EQ 

1017 

4134 


JMS TYPO 

1020 

4316 


JMS TTOUT 

1021 

4126 


JMS CRLF 

1022 

1252 


TAD YA 

1023 

4134 


JMS TYPO 

1024 

1251 


TAD EQ 

1025 

4134 


JMS TYPO 

1026 

1253 


TAD Y 

1027 

3254 


DCA X 

1030 

4316 


JMS TTOUT 

1031 

2247 


ISZ COUNT 

1032 

5235 


JMP 1035 

1033 

4126 


JMS CRLF 

1034 

5506 


JMP I XOPCD 

1035 

7300 


CLA CLL 

1036 

2243 


ISZ Kl 

1037 

5236 


JMP .-1 

1040 

2244 


ISZ K2 

1041 

5236 


JMP .-3 

1042 

5206 


JMP RETR 

1043 

0000 

Kl, 

0000 

1044 

0000 

K2, 

0000 

1045 

0001 

SKI, 

0001 

1046 

7700 

SK2, 

7700 

1047 

0000 

COUNT, 

0000 

1050 

0330 

XA, 

0330 

1051 

0275 

EQ, 

0275 

1052 

0331 

YA, 

0331 

1053 

0000 

Y, 

0000 

1054 

0000 

X, 

0000 

1055 

0004 

RESET , 

0004 

1056 

0002 

CONVRT, 

0002 

1057 

4777 

MASKE, 

4777 

1060 

7000 

MASKA, 

7000 

1061 

0700 

MASKS, 

0700 

1062 

0070 

MASKC, 

0070 


1063 

0007 

MA.SKD, 

0007 

1064 

0260 

X26, 

0260 

1065 

0000 

AD IN, 

0 

1066 

7240 


CLA CMA 

1067 

6515 


DEC 01 

1070 

7300 


CLA CLL 

1071 

1255 


TAD RESET 

1072 

6516 


DBS 01 

1073 

6515 


DBCOl 

1074 

7300 


CLA CLL 

1075 

4302 


JMS CYCLE 

1076 

3254 


DCA X 

1077 

4302 


JMS CYCLE 

1100 

3253 


DCA Y 

1101 

5665 


JMP I ADIN 

1102 

0000 

CYCLE, 

0 

1103 

1256 


TAD CONVRT 

1104 

6516 


DBSOl 

1105 

6515 


DBCOl 

1106 

7240 


CLA CMA 

1107 

6513 


DBCIl 

1110 

6512 


DBSKl 

1111 

5310 


JMP .-1 

1112 

6514 


DBRIl 

1113 

7500 


SMA 

1114 

0257 


AND MASKE 

1115 

5702 


JMP I CYCLE 

1116 

0000 

TTOUT, 

0 

1117 

7100 


CLL 

1120 

1254 


TAD X 

1121 

0260 


AND MASKA 

1122 

7002 


BSW 

1123 

7012 


RTR 

1124 

7010 


RAR 

1125 

1264 


TAD X26 

1126 

4134 


JMS TYPO 

1127 

1254 


TAD X 

1130 

0261 


AND MASKS 

1131 

7002 


BSW 

1132 

1264 


TAD X26 

1133 

4134 


JMS TYPO 

1134 

1254 


TAD X 

1135 

0262 


AND MASK C 

1136 

7012 


RTR 

1137 

7010 


RAR 

1140 

1264 


TAD X26 

1141 

4134 


JMS TYPO 

1142 

1254 


TAD X 

1143 

0263 


AND MASKD 

1144 

1264 


TAD X26 

1145 

4134 


JMS TYPO 

1146 

5716 


JMP I TTOUT 


*1200 


1200 

0000 

CMPR, 

0000 

1201 

3270 


DCA R2 

1202 

1270 


TAD R2 

1203 

1264 

• 

TAD CRET 

1204 

7440 


SZA 

1205 

7410 


SKP 

1206 

5600 


JMP I CMPR 

1207 

7300 


CLA CLL 

1210 

1270 


TAD R2 

1211 

1265 


TAD CMMA 

1212 

7440 


SZA 

1213 

7410 


SKP 

1214 

5672 


JMP I XAGNl 

1215 

7300 


CLA CLL 

1216 

1270 


TAD R2 

1217 

1274 


TAD COLN 

1220 

7640 


SZA CLA 

1221 

5301 


TMP 1301 

1222 

5226 


JMP STRNG 

1223 

5671 


JMP I XLOOP 

1224 

4505 


JMS I XCHK 

1225 

5672 


JMP I XAGNl 

1226 

4120 

STRNG', 

JMS LISN 

1227 

7100 


CLL 

1230 

0266 


AND MASKIO 

1231 

7006 


RTL 

1232 

7004 


RAL 

1233 

3263 


DCA R3 

1234 

4120 


JMS LISN 

1235 

0266 


AND MASKIO 

1236 

1263 


TAD R3 

1237 

7001 


lAC 

1240 

3261 


DCA LST 

1241 . 

1115 


TAD TEMPI 

1242 

7041 


CIA 

1243 

1261 


TAD LST 

1244 

7041 


CIA 

1245 

3262 


DCA LNG 

1246 

1115 


TAD TEMPI 

1247 

3267 


DCA TEMP2 

1250 

1267 

INCR, 

TAD TEMP2 

1251 

5275 


JMP 1275 

1252 

7002 


BSW 

1253 

1111 


TAD OCO 

1254 

3410 


DCA I XIO 

1255 

2673 


ISZ I ZTl 

1256 

2262 


ISZ LNG 

1257 

5250 


JMP INCR 

1260 

5671 


JMP I XLOOP 

1261 

0000 

LST, 

0000 

1262 

0000 

LNG, 

0000 

1263 

0000 

R3, 

0000 

1264 

7563 

CRET, 

7563 

1265 

7524 

CMM, 

7524 

1266 

0007 

MASKIO, 

0007 


1267 

0000 

TEMP2, 

0000 

1270 

0000 

R2, 

0000 

1271 

0241 

XL OOP, 

LOOP 

1272 

0221 

XAGNl, 

AGNl 

im 

0331 

ZTl, 

T1 

1274 

7506 

COLN, 

7506 

1275 

7001 


lAC 

1276 

3267 


DCA TEMP2 

1277 

1267 


TAD TEMP2 

1300 

5252 


JMP 1252 

1301 

1270 


TAD R2 

1302 

5224 

*1400 

JMP 1224 

1400 

1706 

INTO, 

TAD I XCMDOT 

1401 

0114 


AND MASKJ 

1402 

6506 


DBS 00 

1403 

7240 


CLA CMA 

1404 

6503 


DBCIO 

1405 

7200 


CLA 

1406 

1706 


TAD I XCMDOT 

1407 

6506 


DBS 00 

1410 

6504 


DBRIO 

1411 

0276 


AND MASK2 

1412 

7440 


SZA 

1413 

5217 


JMP .+4 

1414 

1303 


TAD X317 

1415 

3411 


DCA I Xll 

1416 

5222 


JMP .44 

1417 

7200 


CLA 

1420 

1302 


TAD X323 

1421 

3411 


DCA I Xll 

1422 

2304 


ISZ T2 

1423 

1706 


TAD I XCMDOT 

1424 

3411 


DCA I Xll 

1425 . 

2304 


ISZ T2 

1426 

7240 


CLA CMA 

1427 

6505 


DBCOO 

1430 

7200 


CLA 

1431 

2705 


ISZ I XTl 

1432 

5674 


JMP I XGET 

1433 

1112 

INTOT, 

TAD RESET2 

1434 

3011 


DCA Xll 

1435 

1304 


TAD T2 

1436 

7041 


CIA 

1437 

3304 


DCA T2 

1440 

6002 


lOF 

1441 

6046 


TLS 

1442 

4126 

MORE, 

JMS CRLF 

1443 

1411 


TAD I Xll 

1444 

3277 


DCA HOLD 

1445 

2304 


ISZ T2 

1446 

7000 


NOP 


1447 

1411 


TAD I Xll 

1450 

5312 


JMP 1512 

1451 

3310 


DCA TEMP 

1452 

1310 


TAD TEMP 

1453 

7010 


RAR 

1454 

7012 


RTR 

1455 

0311 


AND MASKF 

1456 

1307 


TAD 0T26 

1457 

4134 


JMS TYPO 

1460 

1310 


TAD TEMP 

1461 

0311 


AND MASKF 

1462 

1307 


TAD OT26 

1463 

4134 


JMS TYPO 

1464 

1701 


TAD I XEQ 

1465 

4134 


JMS TYPO 

1466 

1277 


TAD HOLD 

1467 

4134 


JMS TYPO 

1470 

2304 


ISZ T2 

1471 

5242 


JMP MORE 

1472 

5673 


JMP I XFIRST 

1473 

0201 

X FIRST, 

FIRST 

1474 

0256 


X GET 

1475 

0400 

C6, 

0400 

1476 

7776 

MASK2, 

7776 

1477 

0000 

HOLD, 

0000 

1500 

0310 

XISZT, 

ISZT 

1501 

1051 

XEQ, 

EQ 

1502 

0323 

X323, 

0323 

1503 

0317 

X317, 

0317 

1504 

0000 

T2, 

0000 

1505 

0331 

XTl, 

T1 

1506 

0335 

XCMDOT, 

XMDOUT 

1507 

0260 

OT26, 

0260 

1510 

0000 

TEMP, 

0000 

1511 

0007 

MASKF, 

0007 

1512 

7002 


BSW 

1513 

1315 


TAD ONE 

1514 

5251 


JMP 1451 

1515 

7777 


MONE 

AD IN 

1065 



AGNl 

0221 



ATD 

1000 



CA 

0652 



CAL 

1577 



CHK 

0500 



CHKl 

0611 



CHK2 

0820 



CH[C3 

0630 



CINT 

0550 



CLK 

0103 



CLR 

0420 



CMD 

0267 



CMDOUT 

0335 



CMMA 

1265 



CMPR 

1200 



CNT 

0104 










RESETl 

0332 

RESET2 

0112 

RETR 

1006 

Rl 

0334 

R2 

1270 

R3 

1263 

SH 

0647 

SKI 

1045 

SK2 

1046 

START 

0200 

STORl 

0100 

STOR2 

0101 

STRNG 

1226 

SUB 

0400 

TEMP 

1510 

TEMPI 

0115 

TEMP2 

1267 

TTOUT 

1116 

TYPO 

0134 

T1 

0331 

T2 

1504 

WAITl 

0260 

WAIT2 

0316 

X 

1054 

XA 

1050 

XAGNl 

1272 

XATD 

0643 

XCHK 

0105 

XCMDOT 

1506 

XCMPR 

0326 

XEQ 

1501 

XFIRST 

1473 

XGET 

1474 

XINTO 

0325 

XINTOT 

0327 

XISZT 

1500 

XL OOP 

1271 

XOPCD 

0106 

XSUB 

0005 

XTl 

1505 

XT2 

0337 

XIO 

0010 

Xll 

0011 

X26 

1064 

X317 

1503 

X323 

1502 

Y 

1053 

YA 

1052 

ZERO 

0000 

ZTl 

1273 


SECTION FIVE 


HARDWARE DESCRIPTION 

Figure 1-1 of this report shows all of the hardware developed 
for the program. The nozzle assembly which contains 30 solenoid 
valves and 30 pressure switches as shown in figure 5-1. This 
assembly is connected to the interface panel by a cable. The 
interface panel is shown in figures 5-2 and 5-3. Connection 
between the interface panel and the PDP-8 process controller 
is accomplished through normal I/O cabling of the PDP-8. 

A. Axis Nozzle 

The Nozzle Assembly (drawings 5049-001 through -005) con- 
sists of a torus- formed plenum supplied from a compressed 
air source and connected to 30 injector ports through 30 
Skinner solenoid valves. In the pressure chamber between 
the valve and its injection port, an automobile brakeline 
pressure switch was installed to sense whether each valve 
was open or closed. The drawings used to fabricate this 
nozzle assembly follow. 
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B. Interface Panel 


The Interface Panel as shown in figures 5-2 and 5-3 pro- 
vides the operator with an indication of the command status 
and actual status of each injection port. The innercircle 
of lights on the front of this panel represent the command 
and the outer circle represents the true status of each 
port. The front panel also provides a means of energizing 
the system and power supply test points. At the upper right 
of the panel are two (2) lights indicating the standby or 
run status of the PDP-8 and control switches to reset or 
halt a sequence . 

The panel contains interface circuitry to decode the serial 
outputs of the PDP-8 and re-encode these command signals as 
commands to each valve. It further contains an analog to 
digital converter and a free running IKHZ clock. The schem- 
atic diagrams used to assemble the breadboard ciruit cards 
and the panel assembly follow. 
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FIGURE 5-2 

INTERFACE PANEL (FRONT VIEW) 



FIGURE 5-3 

INTERFACE PANEL (REAR VIEW) 
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SECTION SIX 


VI. OPERATING THE OPERATIONAL ROUTINE 
A. The Keyboard Monitor 

Control of the operational routine resides in the Keyborad 
Monitor. When the program is loaded and started at location 
200 in Field 0, a will be printed at the left margin of 
the teleprinter. Whenever this character is printed, the 
' program is in the Keyboard Monitor Command Mode waiting for 

an operator command at the teletype. 

There are four (4) commands under Keyboard Monitor which 
will be discussed in detail. These are: 

"M" - Mode Select 
"PS" - Program Select 
"PE" - Program Execute 
"PL" - Program List 

The teleprinter will respond with a "?" and return to Keyboard 
Monitor for any character typed while in Keyboard Monitor 
other than the above listed commands and two special characters 
to be discussed. 

Whenever the operator wishes to return to Keyboard Monitor 
control, he types a CTRL/U (produced by pressing the CTRL 
key and U key simultaneously). The teleprinter echoes a 
"tU" and returns to Keyboard Monitor indicated by a 'I?" 
at the left margin. 

If this thrust control test program is used under DEC OS/8 
control, a return to the OS/8 Keyboard Monitor is accomplished 


by typing a CTRL/C (produced by pressing the CTRL key and C 
key simultaneously). The teleprinter echoes a "'TC" and 
transfers program control to location 7600 in Field 0 - i.e. 
the OS/8 Keyboard Monitor return point, (WARNING: Do NOT 

type CTRL/C if you are not under the OS/8 monitor.) 

"M" - Mode Select Instruction 

When an "M" is typed under Keyboard Monitor, the teleprinter 
responds by typing the question "M0DE(R,S) The operator 
then responds by typing an "R" (remote mode) or an "S" (se- 
quence mode) . For any other character (except CTRL/U or 
CTRL/C) the teleprinter responds with a "?" and asks again 
"M0DE(R,S) 

The '*M" instruction selects the mode under which the test 
program will operate. It affects the subsequent use of the 
"PS" and "PE" instructions. 

"R" - Remote Mode: This means that all X,Y input to the test 

program will take place from a sampling of the analog to 
digital converter. It is used when one desires to control 
the X,Y input by hand (i.e, through pots) or by an external 
signal generator. 

"S" - Sequence Mode: This means that all X,Y input to the 

test program will take place from a reading of X,Y sequence 
stacks (in core memory) that were loaded via the teletype 
prior to execution and under the program select ("PS") 


instruction. 


c. 


"PS” - Program Select Instruction 


(Under Remote Mode) When a "PS" is typed under Keyboard 
Monitor the teleprinter will respond with the question 
"STEP;". An integer (from 1 to 2000) is then entered via 
the keyboard. This represents the transitional step distance 
of Figure 3-10 discussed earlier. The actual transitional 
step distance is slightly smaller than this since the tran- 
sition step count is found by 

STPCNT f- (DSTNC/STEPDT) +1 

to insure a step of at least one. (See the Program Listing 
for further details) . 

Next the question "R(C,V); C" is asked. "V" stands for 
variable, "C" for constant. In remote mode the transition 
rate R is always a constant. It represents the time lapse 
between valve state commands and is measured in units of 
approximately one msec. R should generally not be under 50 
to accomodate the computer time spent in calculations. If 
R is much smaller than 50, the time lapse between valve state 
commands will be governed by the program computation time. 
After the operator t 3 q>es in a value for R the final question 
asked is "T= ", "T" stands for "termination point" and is 

equal in absolute time units to the product of T and R. 

When there is no change in an X,Y input for a period of 
T times R the program considers X,Y to be a terminal state 
(albeit temporarily) and enters a compensate routine to 
account for valves stuck open or closed. If a valve is 


found to be stuck open, the 180 degree opposite valve is 
opened to neutralize its effect. If a valve is found to be 
stuck closed (i.e. it was connnanded to open but remained 
closed), the nearest closed valve to the stuck one is then 
opened . 

After entering a value for T the program returns to Keyboard 
Monitor . 

(Under Sequence Mode) When a "PS" is typed under Keyboard 
Monitor the teleprinter will respond with the question 
"STEP:". 

Next the question "CD(I,F):" (cycle duration) is asked. 

"I" stands for infinite, "F" for finite. If an I is typed, 
the subsequent program execution will cycle through the 
X,Y,R stacks indefinitely - until a CTRL/U is typed or the 
"HALT" button is pushed. If an F is typed, it must be 
followed by an integer representing the number of times the 
program will cycle through the X,Y,R stacks under program 
execution before returning to Keyboard Monitor. 

The next question asked is "R(C,V):". If a C is typed, it 
must be followed by an integer. It also inhibits the program 
from asking for an R when the X,Y stacks are being loaded. 

The designated constant is automatically loaded into the 
R stack each time an X,Y pair is selected. 

The following questions asked by the program are a repetitive 
sequence of the three questions "X=", "Y=", and "R=" (R is 
only asked if a "V" was typed in response to the "R(C,V):" 
question.) The X,Y,R sequence stacks are loaded from this 


question. Only 127 values each are allowed for X,Y and R 
due to stack size limitations, X and Y must be in the 
range from -512 to +511, A return to Keyboard Monitor 
is accomplished by filling the stacks or returning via a 
CTRL/U. 

D. "PE" - Program Execute Instruction 

When a "PE" is typed under Keyboard Monitor, the program 
begins the execution selected under the "M" and "PS" 
instructions, A return to keyboard monitor may be accom- 
plished via the CTRL/U at the teletype or the "HALT" 
button. 

Every valve command or valve inquiry is recorded in a 
program listing file in core. This is later used as documen- 
tation of the actual program execution. When this listing 
buffer is full, no more program execution documentation 
will be recorded even though the program execution may 
continue. The buffer has a capacity for 213 individual 
commands (or inquiries) . 

E, "PL" - Program List Instruction 

When a "PL" is typed under Keyboard Monitor, a documentation 

listing of the previous program execution is given. The 

heading for this listing is as follows: 

VALVE VALVE ABSOLUTE 

VALVE COMMAND STATE TIME 

The valve number in octal is given under "VALVE". Either 

"0" for an open command, "C" for a close command, or "I" 

for an inquiry is given under "VALVE COMMAND". The "VALVE 


STATE" column may be empty or contain a "COG" (previous 
state, command, current state) for a stuck closed valve, 
or an "OCO" for a stuck open valve. This individual valve 
condition is determined during the compensate routine at an 
X,Y termination. The "ABSOLUTE TIME" is measured in approxi- 
mately one msec, units and represents the valve execution time. 
Entering Integers 

Integers are entered from the teletype whenever the program 
calls for them. 

The "." and "," may be used as markers but are ignored by 
the computer . 

If an error is made while entering an integer the error flag 
"^" may be typed followed by the correct integer. This 
error flag may be used as many times as necessary. 

Typing the minus sign will cause the integer to be 
entered negatively in 2's complementary arithmetic. The 
"+" character may, but need not be used. 

Any other non-digit character will terminate the integer 
input and return control to the program. A "carriage 
return" is usually used for this. 

Internally the program identifies the valves from 1 to 36. 
External identification of the valves ranges from 0 to 35. 


